Измените цвет текста в validate () в блестящем приложении

Question

Интересно, можно ли изменить цвет текста в validate() в блестящем приложении, поскольку нет идентификатора, подобного, например, при использовании textOutput().

library(shiny)
ui <- fluidPage(
  checkboxGroupInput('in1', 'Check some letters', choices = head(LETTERS)),
  selectizeInput('in2', 'Select a state', choices = state.name),
  plotOutput('plot')
)

server <- function(input, output) {
  output$plot <- renderPlot({
    validate(
      need(input$in1, 'Check at least one letter!'),
      need(input$in2 != '', 'Please choose a state.')
    )
    plot(1:10, main = paste(c(input$in1, input$in2), collapse = ', '))
  })
}

shinyApp(ui, server)

Answer 1

Вы можете указать стиль CSS, как описано здесь: https://shiny.rstudio.com/articles/validation.html

library(shiny)
ui <- fluidPage(

    tags$head(
        tags$style(HTML("
      .shiny-output-error-validation {
        color: #ff0000;
        font-weight: bold;
      }
    "))
    ),

    checkboxGroupInput('in1', 'Check some letters', choices = head(LETTERS)),
    selectizeInput('in2', 'Select a state', choices = state.name),
    plotOutput('plot')
)

server <- function(input, output) {
    output$plot <- renderPlot({
        validate(
            need(input$in1, 'Check at least one letter!'),
            need(input$in2 != '', 'Please choose a state.')
            )
        plot(1:10, main = paste(c(input$in1, input$in2), collapse = ', '))
        })
    }

shinyApp(ui, server)

Результат