r - 光沢のあるupdateRadioButtonsをshinyjsの無効化/有効化とともに使用する

Question

ユーザーがラジオ ボタンを選択する機能を制限する必要がありますが、常にそれらを表示する必要があります。shinyjs::disableボタンを無効にして選択を更新するために使用しましupdateRadioButtonsたが、正しく機能していないようです。私のコードを無効にするのではなく、更新のみが機能しているようです：

library(shiny)
library(shinyjs)

server = shinyServer(function(input, output, session) {

observeEvent(input$toggle, {

if (input$toggle == "enable") {

  updateRadioButtons(session, "button1", "",
                     c("one" = "one", "two" = "two"),
                     inline = T, selected = "one")

  shinyjs::enable("button1")

}

if (input$toggle == "disable") {

  updateRadioButtons(session, "button1", "",
                     c("one" = "one", "two" = "two"),
                     inline = T, selected = "two")

  shinyjs::disable("button1")

}

 })

})

ui = shinyUI(

fluidPage(

shinyjs::useShinyjs(),

radioButtons("toggle", "",
           c("enable" = "enable", "disable" = "disable"), inline = T),

radioButtons("button1", "",
           c("one" = "one", "two" = "two"), inline = T)

))

shinyApp(ui=ui,server=server)