ディセーブル入力を有効にする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") 
     } 
    }) 
    } 
))