Question

我在Shiny应用程序中有3个数字输入。这些是具有最小和最大阈值的百分比。显然总和不应该大于100.

当3个输入的总和大于100时，如何添加错误消息或通知？

以下代码：

library(shiny)

# Define the UI
ui <- bootstrapPage(
  numericInput('s1', 'Share 1 (%):', 30, min = 5, max = 55),
  numericInput('s2', 'Share 2 (%):', 30, min = 5, max = 55),
  numericInput('s3', 'Share 3 (%):', 40, min = 5, max = 55),

  textOutput('result')
)


# Define the server code
server <- function(input, output) {
  output$result <- renderText({
    (input$s1 + input$s2 + input$s3)
  })
}


# Return a Shiny app object
shinyApp(ui = ui, server = server)

Answer 1

您可以像这样添加.tabs-nav .tab-active a { border-bottom: 3px solid red; cursor: default; box-sizing: border-box; }：

validate

如何在Shiny中验证多个数字输入并显示错误消息？

1 个答案: