data-raw/update_protocole.R

In choisy/gso: Data from the General Statistical Office (GSO) of Vietnam

## TO MAKE AN UPDATE:

# 1. download all the data frames from gso:
source("data-raw/downloading_data.R")

# 2. rename all the csv file downloaded:
source("data-raw/renaming_csv.R")

# 3. Separate the table containing different information (spatial definition) in
# different table:
source("data-raw/separating_table.R")

# 4. Read all the file and create the object "content" which contains the data
# frames anf the information related (names, file associates, spatial and
# temporal information):
source("data-raw/tidying_data.R")

# 5. Add data frames containing the population size by age group and by year
# into the object "content":
source("data-raw/age_group.R")

# 6. Update description field in the file DESCRIPTION:
descrip <- readLines("DESCRIPTION")
descrip[grep("Description:", descrip) + 1] <-
  paste0("  (last update, ", format(Sys.Date(), "%d %B %Y"), ").")
writeLines(unlist(tot_rd), con = paste0(path, "/R/data.R"), sep = "\n")

# 7. Empty environment:
rm(list = ls())

# 8. Create a .zip file of the downloaded data:
source("data-raw/compressed_files.R")

## If you want to repeat from the step 4 the protocole without having to
## download and process the .csv files, you can use the last .zip files as
## source data by using the function `unzip_files`
unzip_files <- function(zippath) {
  zip::unzip(zippath, exdir = "data-raw/")
  lapply(dir(zippath), function(x) {
    ffile <- list.files(paste0(zippath, x), full.names = TRUE)
    topath <- paste0("data-raw/", x, "/")
    tofile <- paste0(topath, basename(ffile))
    dir.create(topath)
    file.rename(ffile, tofile)
  })
  unlink(zippath, recursive = TRUE)
}