R闪亮有条件地改变numericInput背景颜色

考虑以下代码：

library(shiny)

ui <- shinyUI(
    fluidPage(
        column(12,
               numericInput("test", h5("Test value:"), value = 500, min = 0, max = 10000, step = 100, width = '200px')
        )
    )
)

server <- function(input, output) {
}

shinyApp(ui = ui, server = server)

我想根据无效的用户输入将 numericInput 小部件的背景颜色更改为红色。因此，如果用户输入文本或超出最小和最大范围的值，则小部件应为红色。

请注意，我无法使用使用 CSS 文件的解决方案，例如：

input:invalid {
    background-color: #FFCCCC !important;
}

原因是，如果用户输入的值不是 numericInput 语句中“step”值的倍数，则背景将变成红色（请参阅：R闪亮的数字输入步骤和最小值交互 https://stackoverflow.com/questions/50313005/r-shiny-numericinput-step-and-min-value-interaction了解详情）。

那么，如何根据我定义的验证规则有条件地设置样式来实现如上所述的我自己的手动验证呢？也就是说，我可以应用任何规则来说明什么是有效的，例如：

• if (is.numeric(input$test))
• 如果（输入$测试> = 0）
• if (输入$test

您可以使用以下方法实现此目的Shinyjs。您可以根据需要调整颜色变化的规则（我根据您其他的 5 个步骤顺序定义了规则）question https://stackoverflow.com/questions/50313005/r-shiny-numericinput-step-and-min-value-interaction).

library(shiny)

jsCode <- '
shinyjs.backgroundCol = function(params) {
var defaultParams = {
id : null,
col : "red"
};
params = shinyjs.getParams(params, defaultParams);
var el = $("#" + params.id);
el.css("background-color", params.col);
}'

ui <- fluidPage(
  useShinyjs(),
  extendShinyjs(text = jsCode),
  sidebarPanel(
    numericInput("val", "Enter value:", value=50, min = 0, step = 5)
  )
)

server <- function(input, output, session) {
  observeEvent(input$val, {
    x <- input$val
    if (x %% 5 != 0 | x < 0 | is.na(x))  {
      js$backgroundCol("val","red")
    } else {
      js$backgroundCol("val","white")
    }
  })
}

shinyApp(ui, server)