R/helper.R

Defines functions status_code.wto Sys.sleep.random

status_code.wto <- function(x) x$status_code

Sys.sleep.random <- function() {
  st <- runif(1, 1, 10)
  cat("sleep ", st, " seconds...\n", sep = "")
  Sys.sleep(st)
}
chinhungtseng/wtotariffcrawler documentation built on Jan. 15, 2020, 8:24 p.m.