비활성화 입력 활성화 RShiny

Question

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") 
     }) 
     } 
    )) 

어떻게 해결할 수 있습니까?

Answer 1

코드가 대부분 정확합니다. 벌레는 당신이 관찰하고있는 것에 있습니다. 작업 버튼을 사용하는 경우 코드가 올바르게 작동합니다. 그러나 확인란의 경우 확인란을 선택하지 않은 경우 입력을 사용하지 않도록 설정하고 이벤트를 관찰하지 않고 선택하면 사용할 수 있도록 설정해야합니다.

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") 
     } 
    }) 
    } 
))