Solución:
Puede usar css como se indica en @jbaums
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 styles.css
archivo, pero se muestra en línea aquí como autónomo. #text1
se refiere al elemento DOM con id=text1
y el contenido de las llaves son los estilos relevantes.
en ui.r
:
span(textOutput("message"), style="color:red")
en server.r
:
output$message <- renderText({"This is some red text"})
Si solo desea cambiar una cierta parte de la cadena de retorno, se puede usar htmlOutput
en lugar de textOutput
En el lado del servidor solo regresa
output$text1 <- renderText({ paste("hello input is","<font color="#FF0000"><b>", input$n, "</b></font>") })
De esta manera, Shiny UI ejecutará HTML.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)