光沢のあるrenderText：半角イタリック体、半分ではありませんか？

Question

私の光沢のあるアプリケーションでは、私はrenderTextを半角イタリック体で半角イタリック体のテキストにしたいと思うacronymという名前のtextOutputを持っています。

私はこのようにそれをやってみました：

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

しかし、これはイタリック体で後半を取得できませんでした。これはどうすればいいですか？ ありがとうございます。

Answer 1

次のコードは、私は、出力文字列は、マニュアルに従ってcatによって作成されますので、textOutputは、テキストマークアップすることができないと思います斜体テキスト

library(shiny) 

ui = fluidPage(uiOutput("htmlText")) 

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

shinyApp(ui, server) 

を生成します。

renderText（exprの、ENV = parent.frame（）、引用= FALSE、 outputArgs =リスト（））

exprはことができるRオブジェクトを返す式catの引数として使用されます。