闪亮的 renderText:一半是斜体,一半不是?

Shiny renderText: half italicized, half not?

在我闪亮的应用程序中,我有一个名为 acronym 的 textOutput,我想在其中渲染一些文本,其中一半是非斜体,一半是斜体。

我试过这样做:

output$acronym_1 <- renderText(paste("SID SIDE:", tags$em("Siderastrea siderea")))

但这并没有得到斜体的后半部分。我该怎么做呢? 提前致谢。

以下代码将生成斜体文本

library(shiny)

ui = fluidPage(uiOutput("htmlText"))

server <- function(input, output)
  output$htmlText <- renderUI(HTML(paste(
    "Non-italic text.", em("Italic text")
  )))

shinyApp(ui, server)

我认为 textOutput 无法进行文本标记,因为根据文档,输出字符串将由 cat 创建。

renderText(expr, env = parent.frame(), quoted = FALSE, outputArgs = list())

expr An expression that returns an R object that can be used as an argument to cat.