我有RShiny代码,我想用复选框禁用/启用数字输入。但是,它仅适用于禁用。
library(shiny)
runApp(shinyApp(
ui = fluidPage(
shinyjs::useShinyjs(),
numericInput("test", "Test", 5),
checkboxInput("submit", label="Choose")
),
server = function(input, output, session) {
observeEvent(input$submit, {
shinyjs::disable("test")
})
}
))
我该如何解决这个问题?
你的代码大多是正确的。错误在于您正在观察的内容。如果您使用的是操作按钮,您的代码将正常工作。但是对于复选框,您需要在取消选中复选框时禁用输入,并在选中时启用,而不仅仅是观察事件。
library(shiny)
runApp(shinyApp(
ui = fluidPage(
shinyjs::useShinyjs(),
numericInput("test", "Test", 5),
checkboxInput("submit", label="Choose")
),
server = function(input, output, session) {
observeEvent(input$submit, {
if(input$submit == F){
shinyjs::disable("test")
} else {
shinyjs::enable("test")
}
})
}
))