3

I tried for some hours now to fix this problem, but I did not find a solution until now. The problem is the following: I have the following peace of code, where I basically just check whether a URL mentioned in a data base is updated or not. Every 10 iterations I would like the code to be interrupted for half a second for 10 iterations. Thus, i=1:9 run without a break, 10:19 would have a small pause and 20:29 run normally...

n <- 100
API_expired<- logical(n) 
websites <- organizations$properties.api_path[1:n]
Updated <- function(x){is.null(crunchbase_GET(x))}
Updated_pause <- function(x){is.null(crunchbase_GET(x))
                      sys.sleep(0.5}
cl <- makeCluster(detectCores(), type = "PSOCK")
plan(cluster, workers = cl)

API_expired[1:n]<-  unlist(future_lapply(websites[1:n]))
stopCluster(cl)
wwnpo01
  • 75
  • 6

1 Answers1

1

You could use

if (i %/% 10 %% 2 == 1) { Sys.sleep(0.5) }

to identify the 10:19, 30:39, ... ranges.

Martin Gal
  • 16,640
  • 5
  • 21
  • 39