Nothing
#' Download a full INSEE's dataset list
#'
#' @details the datasets returned are the ones available through a SDMX query
#' @return a tibble with 5 columns : id, Name.fr, Name.en, url, n_series
#' @examples
#' \donttest{insee_dataset = get_dataset_list()}
#'
#' @export
get_dataset_list = function(){
link_dataflow = Sys.getenv("INSEE_sdmx_link_dataflow")
df = get_insee(link_dataflow)
if(!is.null(df)){
if("Name.fr" %in% names(df)){
df = dplyr::filter(.data = df, !is.na(.data$Name.fr))
}
# delete SERIES_BDM from dataset list
if ("id" %in% names(df)){
dataset_list = df$id
if("SERIES_BDM" %in% dataset_list){
df = df[-which(df$id == "SERIES_BDM"),]
}
}
}else{
df = dataset_list_internal
msg1 = "\n\nDataset list download failed"
msg2 = "\nPackage's internal data has been used instead"
msg3 = "\nPlease contact the package maintainer if this error persists"
warning(sprintf("%s %s %s", msg1, msg2, msg3))
}
# df = tibble::as_tibble(df)
return(df)
}
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.