R shiny:如何在每次按actionButton时更新反应数据框而不创建新的反应数据框？

Question

我的闪亮应用程序允许用户使用fileInput上传csv 并存储为反应对象df_data.然后,我为用户创建了一个numericInput,用于输入要从数据框中删除的行号.但是,我得到一个关于嵌套太深的评估的错误:无限递归/选项(表达式=)？.

下面是我的ui.R代码.

shinyUI(fluidPage(
  titlePanel("amend data frame"),

  mainPanel(
    fileInput("file", "Upload file"),

    numericInput("Delete", "Delete row:", 1, step = 1),
    actionButton("Go", "Delete!"),

    tableOutput("df_data")
  )
))

以下是我的server.R代码.

shinyServer(function(input, output) {
  df_data <- reactive({
    read.csv(input$file$datapath)
  })

  df_data <- eventReactive(
    input$Go,
    df_data()[-input$Delete,]
  )

  output$df_data <- renderTable(df_data())
})

我已经通过将子集化数据帧分配给称为df_data2的新的反应数据帧来解决了这个问题.但我想让用户通过在Delete行中输入值并按Go按钮来继续删除不同的行.然后这个解决方案将无法工作,因为我将不得不分配df_data3,df_data4 ...我无法提前预测用户按下Go按钮的次数.

我是一个闪亮约2周的新用户,我一直在寻找解决方案一周.有没有人可以帮助我？一百万谢谢!!

Answer 1

以下是一个有效的解决方案 我创建了一个reactiveValues存储数据帧.选择文件后,将填充数据框.按下删除按钮时,相同的数据帧将删除一行.该表始终输出数据框对象所持有的内容.我希望这段代码可以成为一个很好的学习材料

runApp(shinyApp(
ui=(fluidPage(
  titlePanel("amend data frame"),

  mainPanel(
    fileInput("file", "Upload file"),

    numericInput("Delete", "Delete row:", 1, step = 1),
    actionButton("Go", "Delete!"),

    tableOutput("df_data_out")
  )
)),
server = (function(input, output) {
  values <- reactiveValues(df_data = NULL)

  observeEvent(input$file, {
    values$df_data <- read.csv(input$file$datapath)
  })

  observeEvent(input$Go, {
    temp <- values$df_data[-input$Delete, ]
    values$df_data <- temp

  })

  output$df_data_out <- renderTable(values$df_data)
})))