如何在 Shiny 中的其他标签上使用 HTML 标签？

Posted 2023-03-24

【中文标题】如何在 Shiny 中的其他标签上使用 HTML 标签？

【英文标题】：How to use HTML tags on other tags in Shiny?

【发布时间】：2022-01-14 05:03:50

【问题描述】：

我正在尝试打印如下标题：

有 45% 可用

45% 像这样用粗体显示，我生成了这段代码：

h4(paste0("There is ", strong(as.character(prctnage)), strong("%"), " available"))

这是输出：

There is <strong>45<strong><strong>%<strong> available

有什么建议吗？

【参考方案1】：

见?h4：...参数期望：

标记属性（命名参数）和子属性（未命名参数）

在您的示例中，h4 中的 paste0 将标签转换为字符串。

library(shiny)
library(htmltools)

percentage <- 10

ui <- fluidPage(
  h4("There is ", strong(paste0(percentage, "%")), " available"),
  # another option:
  h4(HTML(paste0("There is ", strong(as.character(percentage)), strong("%"), " available")))
)

server <- function(input, output, session) 
  

shinyApp（用户界面，服务器）

另一种选择是使用HTML() 再次将字符标记为 HTML