在闪亮的应用程序中可以输入一个数字(numericInput)。一个方法应该确保如果数字等于 1,它保持 1,但在所有其他情况下 (x!=1),变量必须设置为 0。
在server.r中:
...
checkNumber=reactive({
if(!is.null(input$data)){
output$n_insertNumber<-renderUI({
if(!is.null(input$data)){
numericInput("number", "Number", value = 8)
}
})
x<-input$number
if (x!=1){x==0}
}
})
...
在ui.r中:
...
uiOutput("n_insertNumber"),
...
输出:
警告:if 中的错误:参数长度为零
有人可以帮我找到解决方案吗?谢谢!