adezip: ~ *.zip - Identifie et dezippe des fichiers de l'archive PMSI

In IM-APHP/pmeasyr: Donnees PMSI avec R

~ *.zip - Identifie et dezippe des fichiers de l'archive PMSI

Description

Recherche et dezippe (décompresse) les fichiers contenus dans une archive *.in ou *.out du PMSI en fonction de parametres.

Usage

adezip(...)

## S3 method for class 'pm_param'
adezip(.params, ...)

## Default S3 method:
adezip(
  finess,
  annee,
  mois,
  path,
  liste = NULL,
  pathto = path,
  type = "in",
  recent = TRUE,
  nom_archive = NULL,
  quiet = FALSE,
  ...
)

Arguments

...	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 noyau_pmeasyr
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, liste = "" dezippe la totalite de l'archive.
pathto	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	Type de l'archive : in ou out.
recent	par défaut TRUE, l'archive la plus recente sera utilisee, sinon propose à l'utilisateur de choisir quelle archive dezipper
nom_archive	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.
quiet	Affichage d'un message au dézippage TRUE / FALSE

Details

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).

Value

Les chemins d'accès des fichiers décompressés, de manière invisible.

Author(s)

G. Pressiat

See Also

adezip2, astat, adelete, utiliser un noyau de parametres avec noyau_pmeasyr

utils::unzip()

Examples

## Not run: 
# 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")
 
## End(Not run)
 
 # 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)

IM-APHP/pmeasyr documentation built on Feb. 19, 2025, 6:17 a.m.