Shiny renderText: halb kursiv, halb nicht?

Question

In meiner glänzenden app, ich habe ein Akronym Textausgabe genannt, wo ich einen Text zu render möchte, die Halb italicized Hälfte nicht-kursiv gedruckt ist.

Ich habe versucht, es so zu tun:

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

Aber die zweite Hälfte nicht in Kursivschrift erhalten. Wie mache ich das? Vielen Dank im Voraus.

Answer 1

wird der folgende Code kursiven Text

library(shiny) 

ui = fluidPage(uiOutput("htmlText")) 

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

shinyApp(ui, server) 

Ich glaube nicht von Text Markup produzieren fähig textOutput ist, da wird die Ausgabekette von cat nach der Dokumentation erstellt werden.

render (expr, env = parent.frame(), zitiert = FALSE, outputArgs = list())

expr Ein Ausdruck, der eine R-Objekt zurückgibt, die sein kann, als Argument verwendet Katze.