在特定时间进行闪亮更新的最佳方法是什么？

Question

我想每隔10秒同时更新所有用户的一堆变量。

目前，我在特定系统时间更新服务器。但是，我当前的失效技术的问题是，当我只想更新一次时，失效会在相同条件下重复更新。以下是我目前的方法的一个例子。

有没有更好的方法来实现我的最终目标？有没有更好的方法在特定系统时间更新？

server.R

## Load User Profiles 
Participants <- readRDS("Participants.RData")
ReactParts <- reactiveValues()

## Which Times to Update
submit_times <- Sys.time() + c(1:10)

observe({

    invalidateLater(1000)
    stime_test <- round(Sys.time() - submit_times,0) == 0 

    if( any(stime_test) ){
      ## Do a bunch of calculations ...
      ## update reactive variables
      ReactParts$Participants <<- Participants