使用Shiny的DT包中带有select扩展名的全选按钮仅选择过滤的行 [英] Select only filtered rows using select all button that comes with select extension in shiny's DT package

问题描述

我试图使用Shiny的DT包中带有select扩展名的全选按钮仅选择过滤的行，但是它选择了所有行.这是示例闪亮的应用

I am trying to select only filtered rows using select all button that comes with select extension in shiny's DT package but it selects all the rows. Here's the sample shiny app

以下是该应用程序的可复制代码:

Below is the reproducible code for the app:

library(DT)
data(mpg)
# Define UI for application 
ui <- fluidPage(

    # Application title
    titlePanel("Select only filtered rows using selectall button"),

    br(),
    br(),

    DT::dataTableOutput("table")


)

# Define server logic 
server <- function(input, output) {

    output$table <- DT::renderDataTable({
        datatable(mpg, escape=F,
                  rownames=F,
                  filter = 'top',
                  #  colnames = c("Data Type","Variable","Description", "Filename"),
                  class = "compact hover row-border",
                  extensions = c('Scroller','Select', 'Buttons'),

                  options = list(
                      select = list(style = "multi", items = "row"),
                      columnDefs = list(list(className = 'dt-center', targets = "_all")),
                      language = list(
                          info = 'Showing _START_ to _END_ of _TOTAL_ variables'),
                      deferRender = TRUE,
                      scrollY = 500,
                      scroller = TRUE,
                      dom = "Blfrtip",
                      buttons = c('selectAll', 'selectNone')
                  ),
                  selection="none"
        ) }, server = F
    )
}

# Run the application 
shinyApp(ui = ui, server = server)

我认为我可能必须添加一些自定义JavaScript来解决此问题，但我对此不太满意.任何人都可以提供帮助或提出任何建议.

I think I may have to add some custom javascript to fix this but I am not good with it. Can anyone help or give any suggestions.

谢谢

推荐答案

我设法设法解决了我的问题.将其发布在这里，这样可能会对其他人有所帮助.我从几个地方得到帮助.数据表文档和

Somehow I managed to figure out the solution for my question. Posting it here, so it might help others. I got help from couple of places. Datatable document and stackoverflow

使用这些帮助，我扩展了我的全选按钮功能，并将其扩展为取消全选按钮(取消选择任何过滤的行).

Using these helps, I extended my selectall button functionality and also extended it for deselectall button (deselect any filtered rows).

这是更新的闪亮应用

下面是更新的代码:

library(shiny)
library(DT)
data(mpg)
# Define UI for application that draws a histogram
ui <- fluidPage(

    # Application title
    titlePanel("Select only filtered rows using selectall button"),

    br(),
    br(),

    DT::dataTableOutput("table")



)

# Define server logic required to draw a histogram
server <- function(input, output) {

    output$table <- DT::renderDataTable({
        datatable(mpg, escape=F,
                  rownames=F,
                  filter = 'top',
                  #  colnames = c("Data Type","Variable","Description", "Filename"),
                  class = "compact hover row-border",
                  extensions = c('Scroller','Select', 'Buttons'),

                  options = list(
                      select = list(style = "multi", items = "row"),
                      columnDefs = list(list(className = 'dt-center', targets = "_all")),
                      language = list(
                          info = 'Showing _START_ to _END_ of _TOTAL_ variables'),
                      deferRender = TRUE,
                      scrollY = 500,
                      scroller = TRUE,
                      dom = "Blfrtip",
                      buttons = list(list(extend='selectAll',className='selectAll',
                                text="select all rows",
                                action=DT::JS("function () {
                                var table = $('#DataTables_Table_0').DataTable();
                                table.rows({ search: 'applied'}).deselect();
                                table.rows({ search: 'applied'}).select();
                }")
                                ), list(extend='selectNone',
                                        text="DeselectAll",
                                        action=DT::JS("function () {
                                var table = $('#DataTables_Table_0').DataTable();
                                table.rows({ search: 'applied'}).select();
                                table.rows({ search: 'applied'}).deselect();
                }")
                                ))

                  ),
                  selection="none"
        ) }, server = F
    )
}

# Run the application 
shinyApp(ui = ui, server = server)

希望这对其他人有帮助.

Hope this help others.

这篇关于使用Shiny的DT包中带有select扩展名的全选按钮仅选择过滤的行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！