Принудительная равнина HTML до блестящих меток - PullRequest
1 голос
/ 14 января 2020

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

Rep. Пример

library(shiny)
library(htmltools)

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

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

Желаемый выход

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

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