閃亮的renderText：半斜體，一半不？

Question

在我的閃亮應用程序中，我有一個名爲首字母縮略詞的textOutput，我想呈現一些文字，其中一半是非斜體，半斜體。

我試圖做這樣的：

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

但這並沒有斜體得到下半場。我該怎麼做呢？ 在此先感謝。

Answer 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（），引用= FALSE， outputArgs =列表（））

EXPR返回R對象，可以是一種表達用作的參數貓。