r - 在Shiny应用程序中删除DT数据表的行

Question

我有一个 Shiny 的应用程序，可以在 DT 表中显示数据帧数据。在应用程序中，我有一个按钮，单击该按钮将删除所选行。当我第一次选择行并单击删除按钮时，它会起作用，但再次单击后，错误的行将被删除，并且任何以前删除的行都会重新出现。我假设这是因为当我调用 DT::renderDataTable() 时它会重新加载数据帧(从 csv)。

从数据框中删除选定的行后如何重新渲染表格？

Answer 1

这可以帮助您开始:

ui.R

    library(shiny)
    library(DT)
    shinyUI(fluidPage(
       titlePanel("Delete rows with DT"),
              sidebarLayout(
                sidebarPanel(
                    actionButton("deleteRows", "Delete Rows")
                ),
                mainPanel(
                   dataTableOutput("table1")
                )
              )
    ))

服务器.R

    library(shiny)
    library(DT)
    library(dplyr)
    df <- data.frame(x = 1:10, y = letters[1:10])

    shinyServer(function(input, output) {
            values <- reactiveValues(dfWorking = df)

           observeEvent(input$deleteRows,{

                    if (!is.null(input$table1_rows_selected)) {

                            values$dfWorking <- values$dfWorking[-as.numeric(input$table1_rows_selected),]
                    }
            })

            output$table1 <- renderDataTable({
                    values$dfWorking
            })

    })