如何将shiny.tag对象（Shiny输入对象）转换为HTML对象或字符对象？

我刚好遇到过类似的需求，其实操作起来很简单，只需要两步就能完成转换：

• 第一步：把shiny.tag对象转为HTML字符串
  Shiny的shiny.tag本质是一个带结构的列表对象，我们可以用as.character()函数直接把它渲染成标准的HTML文本字符串。这个函数会自动解析shiny.tag的结构，输出对应的HTML代码。

• 第二步：将HTML字符串转为Shiny识别的HTML对象
  用Shiny内置的HTML()函数，把刚才得到的字符串转换成HTML对象，这样就和直接从纯文本解析出来的HTML对象完全一样了，不会被Shiny自动转义。

完整代码示例 #

# 加载Shiny包
library(shiny)

# 示例shiny.tag对象
test <- tags$div(
  class = "custom-box",
  tags$h3("转换测试"),
  tags$p("这是通过shiny.tag生成的内容"),
  tags$a(href = "#", "点击跳转")
)

# 两步转换
test_html <- HTML(as.character(test))

# 查看转换后的对象类型
class(test_html)
# 输出结果会是："shiny.tag.list" "HTML"

你也可以把两步合并成一行代码，更简洁：

test_html <- HTML(as.character(test))

这样转换后的test_html就是你需要的HTML对象，可以直接在Shiny的UI中使用，效果和直接写HTML文本再用HTML()解析完全一致。

内容的提问来源于stack exchange，提问作者Jacob Nelson