Добавить новую строку в фрейм данных при нажатии кнопки actionButton

Question

Я пытаюсь создать приложение R Shiny, которое создает 1-рядный фрейм данных на основе входных значений, и при нажатии кнопки действия он добавляет этот фрейм данных в качестве новой строки в другой фрейм данных (который начинается пустым).

Я просмотрел StackOverflow, но не смог найти то, что решило мою проблему.

Я хотел бы, чтобы произошло следующее:

input$one <- "A"
input$two <- "B"
input$three <- "C"

df1 = A | B | C 

Теперь, когда я нажимаю кнопку ActionButton, мне бы хотелось, чтобы df2 (который начинается пустым) был следующим:

df2 = A | B | C

далее я хочу добавить больше строк.Поэтому, если я изменю свои входные значения на следующие:

input$one <- "X"
input$two <- "Y"
input$three <- "Z"

df1 = X | Y | Z 

и снова нажму на кнопку actionButton, df2 должен измениться следующим образом:

df2 = A | B | C
      X | Y | Z

и, наконец, одинПоследнее обновление и нажатие кнопки actionButton будет выглядеть следующим образом:

input$one <- "1"
input$two <- "2"
input$three <- "3"

df1 = 1 | 2 | 3

*actionButton click*

df2 = A | B | C
      X | Y | Z
      1 | 2 | 3

Я хотел бы делать это практически столько раз, сколько возможно, чтобы каждый раз, когда я нажимал на кнопку actionButton, она добавляла все, что находится в df1 какновый ряд до df2.Я знаю, что для этого нужно будет использовать rbind, но как это можно сделать с помощью actionButton?

Answer 1

Это сработало для меня.

mydata <- data.frame()

  df <- eventReactive(input$add_payer, {
      newrow <- data.frame(ALEMO())
      mydata <<- rbind(mydata, newrow)
    })

  output$all_data <- renderTable(df())