如何在R中实现taglists到标准HTML格式的转换

你当前代码的问题在于把selected属性拼接进了标签的文本内容，而没有作为标签的属性参数传入，因此无法生成符合预期的HTML结构。

正确实现方式如下：

1. 需使用htmltools包（shiny项目默认已加载该包），给tags$option传入selected = NA参数，htmltools渲染时会自动生成无值的selected属性，符合HTML规范。
2. 最终调用as.character()即可将tagList转换为HTML字符串。

示例代码：

library(htmltools)

# 生成带selected属性的option标签列表
option_tag_list <- lapply(c("asd", "df"), function(i) {
  tags$option(value = i, selected = NA, i)
})

# 将tagList转换为HTML格式字符串
html_result <- as.character(tagList(option_tag_list))

# 打印查看结果
cat(html_result, sep = "\n")

运行上述代码后输出的内容与你预期的结果完全一致：

<option value="asd" selected>asd</option>
<option value="df" selected>df</option>

如果你是在shiny项目中使用，不需要手动转换为字符串，直接将生成的tagList传入UI组件即可，shiny会自动完成渲染。

内容的提问来源于stack exchange，提问作者manu p