Description Usage Arguments Details Value Author(s) See Also Examples
Recherche et dezippe (décompresse) les fichiers contenus dans une archive *.in ou *.out du PMSI en fonction de parametres.
1 2 3 4 5 6 7 8 9 |
... |
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. |
.params |
Un noyau de paramètres définis par la fonction fonction |
finess |
Finess de l'archive. |
annee |
Année de l'archive. |
mois |
Mois de l'archive. |
path |
Chemin d'accès au répertoire contenant l'archive à décompresser |
liste |
Vecteur de caractère avec le type de fichiers à dézipper (ex: ano, rss, rsa, dmi, ...). Par défaut, |
pathto |
Par defaut la même valeur que |
type |
Type de l'archive : in ou out. |
recent |
par défaut |
nom_archive |
Nom de l'archive à décompresser dans le dossier |
quiet |
Affichage d'un message au dézippage |
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
).
Les chemins d'accès des fichiers décompressés, de manière invisible.
G. Pressiat
adezip2
, astat
, adelete
,
utiliser un noyau de parametres avec noyau_pmeasyr
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | # 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
## Not run:
adezip(123456789, 2017, 10,
path = dossier_archives,
liste = 'rsa',
pathto = tmp_dir,
recent = FALSE,
type = "out")
dir(tmp_dir, pattern = "rsa")
## End(Not run)
# Dézipper les logs
## Not run:
adezip(p, type = "out", liste = c('chainage.log', 'comp.log', 'log'))
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.