在我的闪亮应用程序中,我有一个textOutput命名的首字母缩略词,我想在renderText中找到一些半非斜体,半斜体的文本。
我尝试这样做:
output$acronym_1 <- renderText(paste("SID SIDE:", tags$em("Siderastrea siderea")))
但这并没有以斜体显示下半场。我该怎么做呢? 提前谢谢。
答案 0 :(得分:1)
以下代码将生成斜体文本
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 一个表达式,它返回一个可以用作 cat 的参数的R对象。