inst/scrape_disaster.R

# Carregar pacotes
pkgload::load_all()

pak::pkg_install("curso-r/munifacil")

df_disaster <- get_data_disaster()

# exportar csv
write.csv(df_disaster, "inst/df_disaster.csv")

# escrever a mensagem de commit
commit_message <-
  paste0("Base de desastres em MG atualizada em ", Sys.time())

# salvar a mensagem de commit
writeLines(commit_message, "mensagem-comit.txt")
denis-or/desastres documentation built on Feb. 6, 2023, 4:38 a.m.