r - 如何在 R shiny 中将下标或上标添加到 renderText

Question

有没有办法将 html 文本格式(例如上标或下标)添加到 renderText() 的输出。似乎 html 标签在这种情况下不起作用。

最小的例子:

library(shiny)

ui <- fluidPage(
    titlePanel("Subscript test"),
    mainPanel(textOutput("test"))
    )

server <- function(input, output) {
    output$test <- renderText("CO<sub>2</sub>")
}

shinyApp(ui = ui, server = server)

Answer 1

您的代码只需要将 ui 部分中的 textOutput() 更改为 htmlOutput()。后一个函数专门设计用于返回一个 react 变量作为 HTML 输出，这允许使用 HTML 标签等。

更多信息在这里:https://shiny.rstudio.com/reference/shiny/0.11.1/htmlOutput.html