R 用两个ActionButton填充数据框

我有点被这个棘手的问题难住了。我有两个代表组成员身份的操作按钮（组1和组2）。我想知道用户是否单击一个按钮来填充一个两列数据框，其中包含所选的组以及提交的日期/时间，并显示在页面上。我可以在单击时获得要打印到控制台的组+日期/时间，但我可以使用一些帮助来填充表格

以下是我迄今为止所尝试的：

library(shiny)

ui <- fluidPage(

  titlePanel("Select your group"),
   br(),
  column(
    6,
   actionButton("group1", "Group 1", style = 'padding:4px; font-size:50px'),
   ),
   column(
     6,
     actionButton("group2", "Group 2", style = 'padding:4px; font-size:50px'),
   )
  
)

server <- function(input, output, session) {

click <- date()

observeEvent(input$group1,  {print(paste0("Group1: ", click))})
observeEvent(input$group2,{print(paste0("Group2: ", click))})

}

shinyApp(ui, server)

库（闪亮）
ui这里有一个想法。每次单击按钮时，表都会得到一个包含信息的新行。为了获得更好的印象，用户界面上显示了孔参数表

library(shiny)



ui <- fluidPage(
  
  titlePanel("Select your group"),
  br(),
  column(
    6,
    actionButton("group1", "Group 1", style = 'padding:4px; font-size:50px'),
  ),
  column(
    6,
    actionButton("group2", "Group 2", style = 'padding:4px; font-size:50px'),
  ),
  br(),
  tableOutput('table')
  
)

server <- function(input, output, session) {
  
  values <- reactiveValues()
  values$df <- data.frame(group = NA, time = NA)
  
  observeEvent(input$group1,  {
    newLine <- c("group1", date())
    isolate(values$df <- rbind(values$df, newLine))
    })
  observeEvent(input$group2,  {
    newLine <- c("group2", date())
    isolate(values$df <- rbind(values$df, newLine))
    })
  
  output$table <- renderTable(values$df) 
}


shinyApp(ui, server)

库（闪亮）
这正是我要找的。谢谢reactiveValues（）和isolate（）是我需要深入研究的内容。再次感谢：）我认为在这种情况下，隔离是不必要的，还是我忽略了什么？