在 R Shiny 中添加和删除 DT Datatable 的行

Question

我正在尝试向我的 Shiny 应用程序添加“保存输入”功能，其中保存的输入将保存在 DT 数据表中。如果用户单击“添加”按钮，则输入将附加到数据表中。然后，用户可以通过选择一行并单击“删除”按钮从该数据表中删除一行。我还需要将此表的值保存为全局变量，以便它在所有会话中保持持久性。

示例代码如下所示。当我关闭会话时，表 ( this_table) 会正确更新，但是，这些更改不会在应用程序期间实时显示。我试过将这两个输入按钮放在一个eventReactive函数中，但是当其中一个按钮被多次选择时，这不起作用。

有任何想法吗？

全局表：

this_table = data.frame(bins = c(30, 50), cb = c(T, F))

闪亮的应用程序代码：

ui <- fluidPage(

   sidebarLayout(
      sidebarPanel(
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30),
         checkboxInput("cb", "T/F"),
         actionButton("add_btn", "Add"),
         actionButton("delete_btn", "Delete")
      ),

      mainPanel(
         DTOutput("shiny_table")
      )
   )
)

server <- function(input, output) {


  observeEvent(input$add_btn, {
    t = rbind(data.frame(bins = input$bins,
                         cb = input$cb), this_table)
    this_table <<- t
  })

  observeEvent(input$delete_btn, {
    t = this_table
    print(nrow(t))
    if (!is.null(input$shiny_table_rows_selected)) {
      t <- t[-as.numeric(input$shiny_table_rows_selected),]
    }
    this_table <<- t
  })

  output$shiny_table <- renderDT({
   datatable(this_table, selection = 'single', options = list(dom = 't'))
  })
}

shinyApp(ui = ui, server = server)

Answer 1

您可以使用reactiveVal同时添加可观察和可变的服务器端变量。这些变量的语法是将它们初始化为

rV <- reactiveValue("init_value")

并更新它们

rV("new_value")

这些变量可以在响应式上下文（基本上像inputs）中访问

rV()

R 的语法非常不寻常，可能需要时间来适应，但它绝对是解决此类问题的推荐方法。您可能还想查看reactiveValues类似的功能，但语义更接近 R 类list。

以下是如何将此技术应用于您的问题

library(shiny)
library(DT)

this_table = data.frame(bins = c(30, 50), cb = c(T, F))

ui <- fluidPage(

  sidebarLayout(
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30),
      checkboxInput("cb", "T/F"),
      actionButton("add_btn", "Add"),
      actionButton("delete_btn", "Delete")
    ),

    mainPanel(
      DTOutput("shiny_table")
    )
  )
)

server <- function(input, output) {

  this_table <- reactiveVal(this_table)

  observeEvent(input$add_btn, {
    t = rbind(data.frame(bins = input$bins,
                         cb = input$cb), this_table())
    this_table(t)
  })

  observeEvent(input$delete_btn, {
    t = this_table()
    print(nrow(t))
    if (!is.null(input$shiny_table_rows_selected)) {
      t <- t[-as.numeric(input$shiny_table_rows_selected),]
    }
    this_table(t)
  })

  output$shiny_table <- renderDT({
   datatable(this_table(), selection = 'single', options = list(dom = 't'))
  })
}

shinyApp(ui = ui, server = server)

最后，我想补充一点，@Vishesh Shrivastavs 建议使用该rhandsontable软件包也是一种可行的方法，尽管这样做肯定会失去一些灵活性。