【发布时间】：2020-01-14 16:35:14
【问题描述】：
如何将纯 HTML 的矢量转换为嵌套的闪亮标签列表？
代表。示例
library(shiny)
library(htmltools)
html_str <- '<div><h1>Headline</h1><p>Text</p></div>'
htmltools::as.tags() 和 htmltools::tagList() 似乎都不起作用。 Although this post 展示了如何将 html 转换为 shiny.tags 的示例，我拒绝相信任何主要软件包都没有提供更简单的解决方案。
期望的输出
result <- tags$div(tags$h1("Headline"), tags$p("Text"))
> class(result)
[1] "shiny.tag"
【问题讨论】：
-
为什么要这样做？解决方案将需要 HTML 解析器和递归文本生成，因此链接的解决方案对我来说似乎并不过分复杂。
-
我也不确定我是否看到了好处。像
tags$div()这样的所有函数基本上只是生成可以呈现到页面的HTML。这似乎是一个XY Problem。你真正想要解决的问题是什么？您可以将纯 HTML 插入闪亮的应用程序。