adicionar mais exemplos de rotinas

[temospena]

exemplo, para calcular feriados nacionais, incluindo carnaval

u = "https://date.nager.at/api/v2/publicholidays/"
feriados = data.frame()
for(i in 2020:2030){
  link = paste0(u, i, "/PT")
  feriados1 = jsonlite::fromJSON(link) %>% filter(global == TRUE) %>% select(date, localName, fixed, type)
  feriados = rbind(feriados,feriados1)
  rm(feriados1)
}

[temospena]

adicionar progress bar

library(progress)
pb <- progress_bar$new(
   format = "[:bar] :percent eta: :eta",
   total = 100, clear = FALSE, width= 80)

l = list()
for (j in 1:nrow(TRIPSgeo)){
   p = TRIPSgeo$route$features[[j]]$geometry
   # message("registo ", j)
   pb$tick()
   Sys.sleep(1 / 100)
   for (i in 1:nrow(p)){
      p$x[i]= p$coordinates[[i]][[1]]
      p$y[i]= p$coordinates[[i]][[2]]
      l[j] = st_as_sf(p, coords = c("x","y")) %>% st_combine() %>%  st_cast("LINESTRING")
   }
   TRIPSgeo$path[j] = l[j] 
}