renderText()
的输出结果能否添加HTML文本格式(例如上标或下标)?似乎在这种情况下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)
textOutput()
更改为htmlOutput()
。 - Phil