通过在闪亮的应用程序中按下另一个 actionButton() 来禁用和启用 actionButton()

Question

我有下面有 2 actionButton() 的闪亮应用。我希望当我按下 Datatable 时 Datatable2 被禁用，当我再次点击 Datatable 时 Datatable2 可以再次按下。

library(shiny)
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      actionButton("exc","Datatable"),
      actionButton("exc2","Datatable2")
    ),
    mainPanel( 
    )
  )
)
server <- function(input, output) {
  
 
  
}
shinyApp(ui = ui, server = server)

Answer 1

如果您使用 Shinyjs 包中的 toggleState() 函数，这真的很简单。

该功能的帮助为您提供了极其相似的情况。在你的情况下：

library(shiny)
ui <- fluidPage(
  useShinyjs(), #this activates shinyjs
  sidebarLayout(
    sidebarPanel(
      actionButton("exc","Datatable"),
      actionButton("exc2","Datatable2")
    ),
    mainPanel( 
    )
  )
)
server <- function(input, output) {
  
  observeEvent(input$exc, {
    toggleState("exc2") #identify the element to toggle between active/inactive
  })
  
  
}
shinyApp(ui = ui, server = server)