Recherche et dezippe (décompresse) les fichiers contenus dans une archive *.in ou *.out du PMSI en fonction de parametres.
adezip(...)
# S3 method for pm_param
adezip(.params, ...)
# S3 method for default
adezip(
finess,
annee,
mois,
path,
liste = NULL,
pathto = path,
type = "in",
recent = TRUE,
nom_archive = NULL,
quiet = FALSE,
...
)Paramètres supplémentaires. Permet par exemple de changer un des paramètres après avoir passé un noyau de paramètres sans changer le noyau de paramètres.
Un noyau de paramètres définis par la fonction fonction noyau_pmeasyr
Finess de l'archive.
Année de l'archive.
Mois de l'archive.
Chemin d'accès au répertoire contenant l'archive à décompresser
Vecteur de caractère avec le type de fichiers à dézipper (ex: ano, rss, rsa, dmi, ...). Par défaut, liste = "" dezippe la totalite de l'archive.
Par defaut la même valeur que path, dézipper dans le même répertoire que l'archive, sinon préciser le chemin ou dezipper les fichiers dans le répertoire indiqué par pathto.
Type de l'archive : in ou out.
par défaut TRUE, l'archive la plus recente sera utilisee, sinon propose à l'utilisateur de choisir quelle archive dezipper
Nom de l'archive à décompresser dans le dossier path. Par défaut, NULL, n'utilise pas ce paramètre. Si le chemin est spécifié, alors les paramètres finess, annee, mois et recent ne sont pas utilisés.
Affichage d'un message au dézippage TRUE / FALSE
Les chemins d'accès des fichiers décompressés, de manière invisible.
Il est possible de passer directement les paramètres permettant d'identifier l'archive à dézipper (méthode par défaut) ou à l'aide de paramètres enregistrés dans un noyau de paramètres (voir fonction noyau_pmeasyr).
adezip2, astat, adelete,
utiliser un noyau de parametres avec noyau_pmeasyr
if (FALSE) {
# Chemin vers un dossier temporaire
tmp_dir <- tempdir()
# Chemin vers un dossier contenant des archives simulées
dossier_archives <- system.file("extdata", "test_data", "test_adezip", package = "pmeasyr")
# Décompresser en fonction du finess, année et mois du
# fichier med d'une archive out
adezip('123456789', 2016, 2,
path = dossier_archives,
liste = 'med',
pathto = tmp_dir,
type = "out")
dir(tmp_dir)
# Décompresser plusieurs types de fichiers d'une archive in
adezip('123456789', 2016, 2,
path = dossier_archives,
liste = c('med','rapss', 'ano'),
pathto = tmp_dir,
type = "in")
dir(tmp_dir)
# Utilisation avec un noyau de paramtères
p <- noyau_pmeasyr(
finess = '123456789',
annee = 2016,
mois = 12,
path = dossier_archives,
progress = FALSE
)
adezip(p, type = "in", pathto = tmp_dir)
dir(tmp_dir)
# Modification d'un paramètre du noyau
adezip(p, mois = 11, type = "in", pathto = tmp_dir)
dir(tmp_dir)
# Pour une même période (année/mois), il peut y avoir plusieurs archives si
# il y a eu plusieurs envois. Par exemple il y a deux version de l'archive
# out pour la période 2017.10 dans notre exemple simulé
dir(dossier_archives, pattern = "2017\\.10.*out\\.zip")
# Lorsque l'arguement `recent` est `TRUE` alors la fonction adezip
# sélectionne automatiquement l'archive la plus récente
adezip(123456789, 2017, 10,
path = dossier_archives,
liste = 'med',
pathto = tmp_dir,
type = "out")
dir(tmp_dir, pattern = "med")
}
# Si l'arguement `recent` est `FALSE` alors l'utilisateur est invité
# à choisir
if (FALSE) {
adezip(123456789, 2017, 10,
path = dossier_archives,
liste = 'rsa',
pathto = tmp_dir,
recent = FALSE,
type = "out")
dir(tmp_dir, pattern = "rsa")
}
# Dézipper les logs
if (FALSE) {
adezip(p, type = "out", liste = c('chainage.log', 'comp.log', 'log'))
}