Question

我复制了谢逸辉（https://yihui.shinyapps.io/DT-rows/）写的一个闪亮的应用程序示例。该应用使用DT::renderDataTable()，允许选择行。

一切都很完美。然而，我想知道是否可以重置行选择（即撤消点击选择）？我已尝试使用操作按钮重置s = input$x3_rows_selected（请参阅下面的脚本）。

使用我当前的脚本，s = input$x3_rows_selected确实会被清空，但我可以不重新填充它。此外，所选行仍然被点击（阴影）

有没有人有想法？ DT :: renderDataTable（）中是否有一个选项来重置选择？或者有没有人有解决方法的想法？

谢谢！

示例表单https://yihui.shinyapps.io/DT-rows/）和我的修改（操作按钮）：

server.R

library(shiny)
library(DT)

shinyServer(function(input, output, session) {


    # you must include row names for server-side tables
    # to be able to get the row
    # indices of the selected rows
    mtcars2 = mtcars[, 1:8]
    output$x3 = DT::renderDataTable(mtcars2, rownames = TRUE, server = TRUE)

    # print the selected indices

    selection <- reactive({
        if (input$resetSelection) 
            vector() else input$x3_rows_selected
    })

    output$x4 = renderPrint({

        if (length(selection())) {
            cat("These rows were selected:\n\n")
            output <- selection()
            cat(output, sep = "\n")
        }
    })

})

ui.R

library(shiny)
shinyUI(
    fluidPage(
        title = 'Select Table Rows',

        h1('A Server-side Table'),

        fluidRow(
            column(9, DT::dataTableOutput('x3')),
            column(3, verbatimTextOutput('x4'),
               actionButton('resetSelection',
                   label = "Click to reset row selection"
                             ) # end of action button

              ) #end of column
)))

Answer 1

在 DT 的current development version（＆gt; = 0.1.16）中，您可以使用order=rating方法清除选择。请参阅＆＃34;操纵现有DataTables实例＆＃34;在documentation。

Answer 2

这是一个可能的解决方案，可能不是最好的但它有效。它基于每次单击操作按钮时重新创建数据表，因此将删除所选行。

library(shiny)
library(DT)
runApp(list(
    server = function(input, output, session) {
        mtcars2 = mtcars[, 1:8]
        output$x3 = DT::renderDataTable({
            # to create a new datatable each time the reset button is clicked
            input$resetSelection 
            mtcars2
            }, rownames = TRUE, server = TRUE
        )

        # print the selected indices
        selection <- reactive ({
                input$x3_rows_selected
        })

        output$x4 = renderPrint({
            if (length(selection())) {
                cat('These rows were selected:\n\n')
                output <- selection()
                cat(output, sep = '\n')
            }
        })
    },
    ui = shinyUI(fluidPage(
        title = 'Select Table Rows',
        h1('A Server-side Table'),
        fluidRow(
            column(9, DT::dataTableOutput('x3')),
            column(3, verbatimTextOutput('x4'),
                actionButton(  'resetSelection',label = "Click to reset row selection")
            ) #end of column
        )
    ))
))

在Shiny R中重置DT :: renderDataTable（）的行选择

server.R

ui.R

2 个答案: