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