将纯 HTML 强制转换为 Shiny.tags

Question

How do you convert a vector with plain HTML to a nested shiny tag list?

Rep. Example

library(shiny)
library(htmltools)

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

Both htmltools::as.tags() and htmltools::tagList() don't seem to work. Although this post shows an example on how one could convert html to shiny.tags, I refuse to believe that there isn't a simpler solution provided by any of the major packages.

Desired Output

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

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

Answer 1

I've made a Shiny app to perform this task. It uses the JavaScript library himalaya . It is available in my package html2R . See ?html2R for usage examples.