R/get_dataset_list.R

In hadrilec/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"),]
      }
    }
  }

  # df = tibble::as_tibble(df)

  return(df)
}