Question

我有一个闪亮的应用程序，它在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")
                )
              )
    ))

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

    })

在Shiny app中删除DT数据表的行

1 个答案: