css - 更改 Shiny 的红色错误消息的颜色

Question

我正在开发一个包含大量情节的 Shiny 应用程序。每当我更改某些输入时，绘图在绘制之前不会显示很短的时间，而是显示一条相当显着的红色错误消息。怎么看这个样子 here .

当然有解决这个问题的方法，例如参见here .此外，来自 RStudio 的 Joe Cheng 在 Shiny 开发者大会上用函数 req() 的解决方案进行了最后十分钟的演讲(参见 here )。然而，后者在第一次尝试时并没有完全解决问题，而前者需要更多的工作，因为我必须向每个情节添加 if 子句。

目前，我认为我实际上可以接受错误消息，因为此后情节显示得相当快。但是，有没有机会改变颜色。如果这将是灰色和深蓝色，它会更加不显眼。

Answer 1

如果您检查该元素，您会发现错误的类别是 shiny-output-error，因此您可以使用 css 更改颜色，如下所示:

CSS 代码如下:

.shiny-output-error{color: grey;}

你可以在 ui.R 中通过 tags$head(tags$style(..)) 将它包含在 shiny 中。

可重现的例子:

library(shiny)
library(rhandsontable)
ui <- fluidPage(
  tags$head(tags$style(".shiny-output-error{color: grey;}")),
  rHandsontableOutput("table")
)

server <- function(input, output, session) {
  output$table <- renderRHandsontable({
    rhandsontable(NULL)
  })
}

runApp(shinyApp(ui, server), launch.browser = TRUE)