Nothing
#' @noRd
.onLoad <- function(libname, pkgname){
# options(download.file.method="curl", download.file.extra="-k -L")
Sys.setenv(INSEE_sdmx_link_codelist = "https://www.bdm.insee.fr/series/sdmx/codelist/FR1")
Sys.setenv(INSEE_sdmx_link_datastructure = "https://www.bdm.insee.fr/series/sdmx/datastructure/FR1")
Sys.setenv(INSEE_sdmx_link_dataflow = "https://bdm.insee.fr/series/sdmx/dataflow")
Sys.setenv(INSEE_sdmx_link_idbank = "https://bdm.insee.fr/series/sdmx/data/SERIES_BDM")
Sys.setenv(INSEE_sdmx_link_dataset = "https://bdm.insee.fr/series/sdmx/data")
Sys.setenv(INSEE_idbank_sep = ";")
Sys.setenv(INSEE_idbank_dataset_path = "https://www.insee.fr/en/statistiques/fichier/2868055/202209_correspondance_idbank_dimension.zip")
Sys.setenv(INSEE_idbank_dataset_file = "202209_correspondance_idbank_dimension")
Sys.setenv(INSEE_last_release_link = "https://bdm.insee.fr/series/sdmx/rss/donnees")
Sys.setenv(INSEE_idbank_nchar = 9)
Sys.setenv(INSEE_get_idbank_limit = 1200)
Sys.setenv(INSEE_sdmx_idbank_limit = 400)
Sys.setenv(INSEE_title_sep = sprintf(" %s | %s | %s ", "-",
intToUtf8("0x2014"),
intToUtf8("0x2013")))
Sys.setenv(INSEE_value_as_numeric = "TRUE")
Sys.setenv(INSEE_download_verbose = "TRUE")
Sys.setenv(INSEE_no_cache_use = "FALSE")
Sys.setenv(INSEE_print_query = "FALSE")
Sys.setenv(INSEE_today_date = as.character(Sys.Date()))
Sys.setenv(INSEE_read_sdmx_fast = "FALSE")
Sys.setenv(INSEE_download_option_mode = "wb")
Sys.setenv(INSEE_download_option_method = "")
Sys.setenv(INSEE_download_option_port = "")
Sys.setenv(INSEE_download_option_extra = "")
Sys.setenv(INSEE_download_option_proxy = "")
Sys.setenv(INSEE_download_option_auth = "")
# if different from the default value, it makes an error in create_insee_folder function
# and all metadata files are stored in tempdir
Sys.setenv(INSEE_metadata_folder = "")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.