Limit callback function in R by time

I have the following code:

while(TRUE){
  httpuv::service(30000)
  if(Sys.time() >="2021-01-15 10:59:30 EET" & Sys.time() <= "2021-01-15 15:00:30 EET"){
    print("wait")
  }
  else {print("GO")}
}

service(30000) helps doing a callback every 30 seconds. How can I limit a callback-based on a specific time? I.e. I want to keep this callback, but at the same time want to limit it based on if the condition that if the current time is more than 17:30:00 EET then stopping this callback at all.

This topic was automatically closed 21 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.