r - “全选”操作按钮不起作用

Question

我创建了两个操作按钮Select All和Deselect All. 出于某种原因，Deselect All有效但Select All 无效。

这是为什么？正如我所料，该Deselect All按钮取消突出显示所有行。但是，Select All按钮不做任何事情。

input$selectAll并input$deselectAll正确更新（如TEMP选项卡中所示）

有人可以帮忙吗？这是我的代码。谢谢！

数据集：

colA <- c('A','B','C','D','E')
colB <- c(1,2,3,4,5)
rawdata <- as.data.frame(cbind(colA,colB))
View(rawdata)

服务器.R

function(input, output, session) {

  # Update summaryTable When users click 'Select All'
  summaryTable <- eventReactive (input$selectAll,{
      print("SelectAll")
      DT::datatable(rawdata, selection = list(target = 'row', selected = c(1:ncol(rawdata()))))
  })

  # Update summaryTable When users click 'Deselect All'
  summaryTable <- eventReactive (input$deselectAll,{
      print("deselectAll")
      DT::datatable(rawdata, selection = list(target = 'row', selected = c(0)))
  })


  # Default SummaryTable
  output$inputVars <- DT::renderDataTable({

      if (input$selectAll==0 & input$deselectAll==0) {
          print("Default")
          DT::datatable(rawdata, options = list(paging = FALSE, searching = FALSE))
      } else {
          summaryTable()
      }
  })

  output$temp <- renderPrint({
    print(input$selectAll)
    print(input$deselectAll)
  })

}

用户界面

fluidPage(

  mainPanel(
      tabsetPanel(id = "allResults",
        tabPanel(value='inputVars',title='Variable Selection', 
                  verticalLayout(
                      DT::dataTableOutput('inputVars'),
                      br(),
                      fluidRow(align="bottom", 
                             column(2, actionButton("selectAll"  , strong("Select All"))),
                             column(3, actionButton("deselectAll", strong("Deselect All")))
                      )

                  )
                ),
        tabPanel(value='temp',title="TEMP", verbatimTextOutput("temp"))
      )
  )

)

Answer 1

这是你想要的吗？请注意，我更改ncol为nrowSelecteAll 适合行

library(shiny)
colA <- c('A','B','C','D','E')
colB <- c(1,2,3,4,5)
rawdata <- as.data.frame(cbind(colA,colB))

ui <- fluidPage(
  mainPanel(
    tabsetPanel(id = "allResults",
                tabPanel(value='inputVars',title='Variable Selection', 
                         verticalLayout(
                           DT::dataTableOutput('inputVars'),
                           br(),
                           fluidRow(align="bottom", 
                                    column(2, actionButton("selectAll"  , strong("Select All"))),
                                    column(3, actionButton("deselectAll", strong("Deselect All")))
                           )
                         )
                ),
                tabPanel(value='temp',title="TEMP", verbatimTextOutput("temp"))
    )
  )
)

server <- function(input, output, session) {

  var <- reactiveValues()
  observeEvent(input$selectAll,{
    print("SelectAll")
    var$selected <- 1:nrow(rawdata)
  })

  observeEvent(input$deselectAll,{
    print("deselectAll")
    var$selected <- 0
  })

  # Default SummaryTable
  output$inputVars <- DT::renderDataTable({
    if (input$selectAll==0 & input$deselectAll==0) {
      print("Default")
      DT::datatable(rawdata, options = list(paging = FALSE, searching = FALSE))
    } 
    else {
      DT::datatable(rawdata, selection = list(target = 'row', selected = var$selected))
    }
  })
}

shinyApp(ui = ui, server = server)