Fonction extrayant le contenu d'un onglet d'un fichier Excel diffusé sur data.drees

Cette fonction sert à extraire le contenu d'un onglet d'un fichier Excel diffusé sous data.Drees. Le produit est une liste contenant un élément "tab" correspondant au tableau de données, et divers éléments correspondant aux métadonnées ("source","note","champ", etc.)

extrait_onglet(file, sheet)

Arguments

file	nom du fichier Excel
sheet	nom de l'onglet

Value

une liste contenant un tableau de donnée (élément "tab") et des métadonnées (éléments "intitule","numtab","source","champ", etc.)

Details

Nota : Cette fonction a initialement été dupliquée à partir de la fonction readSheetExcel du package asdep, mais elle intègre quelques améliorations.

Examples

tab_et_infos <- extrait_onglet(file=pathdatadrees("549_la-prestation-de-compensation-du-handicap-pch","pch_et_actp_beneficiaires_par_sexe_et_age_montants_verses_donnees_2016.xlsx"), sheet="Tableau 1")
#> Error in extrait_onglet(file = pathdatadrees("549_la-prestation-de-compensation-du-handicap-pch",     "pch_et_actp_beneficiaires_par_sexe_et_age_montants_verses_donnees_2016.xlsx"),     sheet = "Tableau 1"): impossible de trouver la fonction "extrait_onglet"
tab_et_infos2 <- extrait_onglet(file=pathdatadrees("376_les-depenses-d-aide-sociale-departementale","les_depenses_daide_sociale_departementale_series_longues_1999_2018.xlsx"), sheet="Données nationales")
#> Error in extrait_onglet(file = pathdatadrees("376_les-depenses-d-aide-sociale-departementale",     "les_depenses_daide_sociale_departementale_series_longues_1999_2018.xlsx"),     sheet = "Données nationales"): impossible de trouver la fonction "extrait_onglet"
tab_et_infos3 <- extrait_onglet(file=pathdatadrees("336_minima-sociaux-rsa-et-prime-d-activite","rsa_et_prime_d_activites_donnees_par_sexe_et_configuration_familiale_xlsx"), sheet="Tableau 2")
#> Error in extrait_onglet(file = pathdatadrees("336_minima-sociaux-rsa-et-prime-d-activite",     "rsa_et_prime_d_activites_donnees_par_sexe_et_configuration_familiale_xlsx"),     sheet = "Tableau 2"): impossible de trouver la fonction "extrait_onglet"
tab4 <- extrait_onglet(file=pathdatadrees("619_indicateurs-financiers","fi09_fi10_isd_depenses_d_aide_a_l_hebergement_des_personnes_handicapees_en_etablissement_xlsx"), sheet="2017")$tab
#> Error in extrait_onglet(file = pathdatadrees("619_indicateurs-financiers",     "fi09_fi10_isd_depenses_d_aide_a_l_hebergement_des_personnes_handicapees_en_etablissement_xlsx"),     sheet = "2017"): impossible de trouver la fonction "extrait_onglet"
tab5 <- extrait_onglet(file=pathdatadrees("donnees-mensuelles-sur-les-prestations-de-solidarite","donnees_mensuelles_prestations_solidarite_janvier2021_mm_xlsx"), sheet="Tableau 1")$tab
#> Error in extrait_onglet(file = pathdatadrees("donnees-mensuelles-sur-les-prestations-de-solidarite",     "donnees_mensuelles_prestations_solidarite_janvier2021_mm_xlsx"),     sheet = "Tableau 1"): impossible de trouver la fonction "extrait_onglet"
tab6 <- extrait_onglet(file=pathdatadrees("4230_indicateurs-de-pauvrete-avant-et-apres-redistribution-de-niveau-de-vie-et-d","series_longues_d_indicateurs_de_pauvrete_xlsx"), sheet="Tableau 1a")$tab
#> Error in extrait_onglet(file = pathdatadrees("4230_indicateurs-de-pauvrete-avant-et-apres-redistribution-de-niveau-de-vie-et-d",     "series_longues_d_indicateurs_de_pauvrete_xlsx"), sheet = "Tableau 1a"): impossible de trouver la fonction "extrait_onglet"
tab_et_infos7 <- extrait_onglet(file=pathdatadrees("2034_la-retraite-supplementaire-facultative-et-l-epargne-retraite","la_retraite_supplementaire_donnees_jusquau_31_decembre_2018xls"), sheet="30-T1")
#> Error in extrait_onglet(file = pathdatadrees("2034_la-retraite-supplementaire-facultative-et-l-epargne-retraite",     "la_retraite_supplementaire_donnees_jusquau_31_decembre_2018xls"),     sheet = "30-T1"): impossible de trouver la fonction "extrait_onglet"