Open temospena opened 3 years ago
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]
}
exemplo, para calcular feriados nacionais, incluindo carnaval