如何在闪亮的应用程序中动态更新数据表？ [r]

Question

我想使用actionButton清除数据表。 块确实起作用，但是表仍然在那里。按下actionButton时如何更新表的内容？ 请按以下步骤找到玩具样品。

library(shiny)
library(shinydashboard)
library(DT)

    DT1 <- iris
  shinyApp(  
    ui <- 
      dashboardPage(
        dashboardHeader(title = ""),
        dashboardSidebar(),
        dashboardBody(
          DTOutput("DT"),
          actionButton("clear", "clear")
        )
      ),

    server <- 
      function(input, output, session) {
        output$DT <- renderDT(datatable(DT1))
        observeEvent(input$clear, {
          DT1 <- data.frame()
        })
      }
  )

Answer 1

这就是您需要的-

server <- function(input, output, session) {
    
  dt_data <- reactiveValues(dt_data = iris)
  
  observeEvent(input$clear, {
    dt_data$dt_data <- data.frame() # use iris[0, ] if you want empty df
  })
  
  output$DT <- renderDT(datatable(dt_data$dt_data))
}