將純 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 應用程序來執行此任務。 它使用 JavaScript 庫himalaya 。 它在我的包html2R 中可用。 有關使用示例，請參閱?html2R 。