Question

我正在开发一个有很多情节的Shiny应用程序。每当我更改某些输入时，绘图在绘制之前不会显示很短的时间，而是显示红色的相当突出的错误消息。看起来如何 here

当然有解决此问题的解决方案，例如参见here。此外，来自RStudio的Joe Cheng在Shiny Developer Conference上的最后十分钟讲述了一个功能为req()的解决方案（参见here）。然而，后者在第一次尝试时并没有完全解决问题，前者需要更多的工作，因为我必须在每个情节中添加if子句。

目前，我认为我实际上可以忍受错误消息，因为此后很快就会显示情节。但是，有没有机会改变颜色。如果这是灰色和深蓝色，那将更加不引人注目。

Answer 1

如果您检查元素，则会看到错误的类别为shiny-output-error，因此您使用css更改颜色，请参阅以下内容：

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)

更改闪亮

1 个答案: