使用 R Shiny 将（多个）值添加到数据框

我将 R闪亮与 ggplot 结合使用来可视化某个数据集。我希望用户能够向该数据集添加值。我可以让我的应用程序向我显示原始数据+一个数据点，但是一旦用户输入一个新点，旧的数据点就消失了：用户输入的数据实际上并未存储在我的数据框中。

我正在使用的一些代码（为简单起见更改了变量名称）：

shinyServer(
  function(input, output) {     
    output$newPlot <- renderPlot({   
      input$addButton
      isolate({
        x <- as.numeric(input$x)
        y <- as.numeric(input$y)
        if (!is.na(y)) {
          data <- rbind(data, data.frame(x = x, y = y))

          # more code here

        }

        # more code here 

        plot <- myPlot(data)
        print(plot)

      })
    })
  }
)

用户可以使用以下命令给出 x 和 y 的值textInput然后使用按钮提交这些值（actionButton）。每次用户点击“添加”时，最近输入的 x 和 y 值都会显示在原始数据之上，但用户输入的任何其他值（在同一会话中）都会丢失。我如何才能记住用户输入并绘制所有输入？

鉴于您提供的代码，我无法具体重现您的代码，但也许一个示例会对您有所帮助。你需要的部分是reactiveValues，这允许您存储数据集并在整个会话期间根据您认为合适的情况进行更新。也许这可以帮助您解决问题？

require(shiny)
data(iris)

runApp(
  list(
    ui = fluidPage(
      headerPanel('Adding Data'),
      sidebarPanel(
        textInput("species", label="Add a new species", value="Enter species"),
        numericInput("sepal.length", label="Add a new sepal length", value=""),
        numericInput("sepal.width", label="Add a new speal width", value=""),
        numericInput("petal.length", label="Add a new petal length", value=""),
        numericInput("petal.width", label="Add a new petal width", value=""),
        actionButton("addButton", "UPLOAD!")
      ),
      mainPanel(
        tableOutput("table"))
    ),

    server = function(input, output) {     
      # just a small part of iris for display
      iris_sample <- iris[sample(nrow(iris), 10),]
      row.names(iris_sample) <- NULL

      # The important part of reactiveValues()
      values <- reactiveValues()
      values$df <- iris_sample
      observe({

        # your action button condition
        if(input$addButton > 0) {
          # create the new line to be added from your inputs
          newLine <- isolate(c(input$sepal.length, input$sepal.width, input$petal.length, input$petal.width, input$species))
          # update your data
          # note the unlist of newLine, this prevents a bothersome warning message that the rbind will return regarding rownames because of using isolate.
          isolate(values$df <- rbind(as.matrix(values$df), unlist(newLine)))
        }
      })
      output$table <- renderTable({values$df}, include.rownames=F)
    }
  )
)