R/create_insee_folder.R

In hadrilec/insee: Tools to Easily Download Data from INSEE BDM Database

#' @noRd
create_insee_folder = function(){

  r_folder = file.path(rappdirs::user_data_dir(), "R")
  insee_folder = file.path(rappdirs::user_data_dir(), "R", "insee")
  list_folders = c(r_folder, insee_folder, file.path(insee_folder, "insee"))

  for(ifile in 1:length(list_folders)){
    if(!file.exists(list_folders[ifile])){
      dir_creation = dir.create(list_folders[ifile])
    }
  }

  test_file = file.path(insee_folder, "insee", paste0(openssl::md5("test_file"), ".rds"))
  if(!file.exists(test_file)){
    test = 1
    saveRDS(test, file = test_file)
    if (file.exists(test_file)){
      file.remove(test_file)
    }
  }

  if (Sys.getenv("INSEE_metadata_folder") != ""){
    # Make error on purpose
    a = 1 + "1"
  }

}