r - 将纯 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

我制作了一个闪亮的应用程序来执行这项任务。它使用 JavaScript 库himalaya。它在我的包html2R中可用。请参阅?html2R使用示例。