Nothing
#' @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], recursive=TRUE)
}
}
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"
}
}
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.