How make stop http::service() function doing callbacks from the certain time in R?

Question

I have the following code:

while(TRUE){
  httpuv::service(50000)  #stop at certain time_????
  if(Sys.time() <= "2021-01-14 12:45:30 EET"){
    S