“全选”动作按钮不起作用

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) 

server.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) 
    }) 

} 

ui.R

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到nrow作为SelecteAll为宜与行

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)