una - Cambia el color y la fuente del texto en Shiny App

reportes en r

Question

Estoy usando el código de abajo en server.R para mostrar el texto en el panel principal. Esto funciona exactamente como debería funcionar.

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

¿Hay alguna manera de cambiar la fuente y el color del texto?

Answer 1

La solución de @MikeP también funciona con p() , fx p("some text", style = "color:red) , por lo que también puede ajustar eso en un renderText() desde el servidor si desea mostrarlo dinámicamente .

Answer 2

Puedes usar css como @jbaums indicado

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) })
  }
))

Normalmente, incluiría esto en un archivo styles.css , pero se muestra en línea aquí para que sea autónomo. #text1 refiere al elemento DOM con id=text1 y los contenidos de los corchetes son los estilos relevantes.

Answer 3

Si solo desea cambiar una parte determinada de la cadena que regresa, puede usar htmlOutput lugar de textOutput

En el lado del servidor acaba de regresar

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

De esta manera, Shiny UI realizará HTML.

Answer 4

en ui.r :

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

en server.r :

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