Ändern Sie die Farbe und Schriftart des Textes in Shiny App

Question

Ich verwende den folgenden Code in server.R, um den Text im Hauptbereich anzuzeigen. Dies funktioniert genau so, wie es funktionieren sollte.

output$text1 <- renderText({ 
    if(input$ag == 0) return(NULL) 
    return('First 20 rows for requested AG') 
}) 

Gibt es eine Möglichkeit, die Schriftart und Farbe des Textes zu ändern?

Answer 1

CSS können Sie als @jbaums

angegeben

library(shiny) 
runApp(list(
    ui = bootstrapPage(
    numericInput('n', 'Number of obs', 100), 
    textOutput('text1'), 
    tags$head(tags$style("#text1{color: red; 
           font-size: 20px; 
           font-style: italic; 
           }" 
         ) 
      ) 
), 
    server = function(input, output) { 
    output$text1 <- renderText({ paste("hello input is",input$n) }) 
    } 
)) 

Normalerweise würden Sie dies in einer styles.css Datei enthalten, aber es ist inline hier gezeigten Selbstversorger zu sein. #text1 bezieht sich auf das DOM-Element mit id=text1 und der Inhalt der geschweiften Klammern sind die relevanten Stile.

Answer 2

Wenn nur einen bestimmten Teil des zurückkehrenden Zeichenkette ändern wollen, kann man htmlOutput anstelle von textOutput

Auf Server-Seite nur

output$text1 <- renderText({ paste("hello input is","<font color=\"#FF0000\"><b>", input$n, "</b></font>") }) 

Auf diese Weise zurückkehren, werden glänzende UI HTML ausführen.

Answer 3

in ui.r:

span(textOuput("message"), style="color:red") 

in server.r:

output$message <- renderText({"This is some red text"}) 

Answer 4

Die Lösung von @MikeP arbeitet auch mit p(), fx p("some text", style = "color:red), so können Sie auch nur, dass wickeln in einem renderText() vom Server wenn Sie es dynamisch anzeigen möchten.