R/get_dataset_list.R

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

#' 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)
}