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

这是你想要的吗？请注意，我将

Pattern p = Pattern.compile(t2);
Matcher m = p.matcher(t1);
boolean isSubstring = m.find();

更改为ncol，因为SelecteAll适用于行

nrow

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

1 个答案: