如何在Shiny中验证多个数字输入并显示错误消息？
如何在Shiny中验证多个数字输入并显示错误消息？
提问于 2018-04-11 04:39:43
我在一个闪亮的应用程序中有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)回答 1
Stack Overflow用户
发布于 2018-04-11 06:57:52
您可以像这样添加validate：
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({
out <- input$s1 + input$s2 + input$s3
validate(
need(out <= 100, "The sum can't be over 100")
)
out
})
}
# Return a Shiny app object
shinyApp(ui = ui, server = server)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/49766607
复制
![[叶子]在centos上搭建mcbe服务器并安装mcsm面板](https://ask.qcloudimg.com/http-save/yehe-8203638/05aa2c841bfbd3eabedd1e393ce1a6cc.png)
相似问题
试图在CentOS上安装Meteor
在centos服务器上安装Git时出错
试图在centos上安装phpmyadmin - mysqli失踪
如何在CENTOS 5.5上安装git
在Centos服务器上安装Rails
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
