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

Question

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

有 45% 可用

用 45% 这样的粗体，我生成了这个代码：

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

这是输出：

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

有什么建议吗？

Answer 1

请参阅 ?h4：...参数预期：

Tag attributes (named arguments) and children (unnamed arguments)

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

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(ui, 服务器)

另一种选择是再次使用 HTML()

将字符标记为 HTML

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

How to use HTML tags on other tags in Shiny?

html

tags

shiny