Приведение простого HTML к shiny.tags

Question

Как преобразовать вектор с помощью простого HTML во вложенный блестящий список тегов?

Представитель Пример

library(shiny)
library(htmltools)

html_str <- '<div><h1>Headline</h1><p>Text</p></div>'

Обе htmltools::as.tags() а также htmltools::tagList()не работает. Хотя этот пост показывает пример того, как можно преобразовать html в shiny.tags, я отказываюсь верить, что ни один из основных пакетов не предлагает более простого решения.

Желаемый результат

result <- tags$div(tags$h1("Headline"), tags$p("Text"))

> class(result)
[1] "shiny.tag"

Answer 1

Я сделал приложение Shiny для выполнения этой задачи. Он использует библиотеку JavaScripthimalaya. Он доступен в моем пакете html2R. Увидеть?html2R для примеров использования.

https://stackr u.com/images/e70315e455495666ad227d67055569ecd3018b6b.gif