时间条件ObserveEvent /反应性闪亮

Question

（今天的第一个问题，希望它会成功）

我目前正在开发一个闪亮的应用程序，我想根据时间自动创建一个dataTable。例如，每秒添加一行。到现在为止，我已经成功地添加了行，这要归功于一个操作按钮（每次单击它都会添加一行），但是我找不到一种使过程自动化的方法……有人有想法吗？ / p>

以下是我的代码：我正在使用代理实时编辑我的dataTable

observeEvent(???, {
  proxy %>% addRow(
    data.frame(input$add,
               date = toString(Sys.time()), 
               Country = sample(countries.list,1),
               Value = round(runif(1,0,1000)))
  )})

也许我使用观察事件是错误的，我愿意接受任何建议：）

非常感谢