10 Noyau de paramètres

10.1 Quatre paramètres

Les fonctions de dézippage et d’import de pmeasyr ont en commun quatre paramètres :

le finess du fichier
l’année pmsi
le mois pmsi
le path, repértoire où se trouve le fichier

Ces paramètres sont toujours nécessaires : définir un noyau de paramètres permet de ne les préciser une seule fois, allège le code pour plus de lisibilité.

Exemple de redondance des paramètres :

# Exemple
library(pmeasyr)

# Dézipper
adezip(finess = '750712184', 
       annee  = 2015, 
       mois   = 12, 
       path   = '~/Documents/data/mco/',
       type   = "out", 
       liste  = c("rsa", "ano", "tra"))

# Table ano
iano_mco(finess = '750712184', 
         annee  = 2015, 
         mois   = 12, 
         path   = '~/Documents/data/mco/') -> ano

# Tables rsa
irsa(finess = '750712184', 
     annee  = 2015, 
     mois   = 12, 
     path   = '~/Documents/data/mco/', 
     typi   = 4) -> rsa

# Table tra
itra(finess = '750712184', 
     annee  = 2015, 
     mois   = 12, 
     path   = '~/Documents/data/mco/') -> tra

10.2 Solution avec `noyau_pmeasyr()`

10.2.1 Définir le noyau de paramètres

library(pmeasyr)
p <- noyau_pmeasyr(finess = '750712184', 
                   annee = 2015, 
                   mois = 12, 
                   path   = '~/Documents/data/mco/')

10.2.2 Utiliser le noyau de paramètres

# Tout dézipper
# out
p %>% adezip(type = "out")
# in
p %>% adezip(type = "in")

p %>% irsa()     -> rsa
p %>% iano_mco() -> ano_out
p %>% itra()     -> tra

La syntaxe est beaucoup plus lisible désormais.

10.3 `noyau_skeleton()`

La fonction noyau_skeleton() permet d’obtenir dans la console R le squelette pour définir les quatre paramètres d’un noyau pmeasyr.

library(pmeasyr)
noyau_skeleton()

## 
## noyau_pmeasyr(
##   finess = '.........',
##   annee  = ....,
##   mois   = ..,
##   path   = ''
## ) -> p