R/archives.R
adezip2.RdAlternative à la fonction adezip(), si on connait precisement l'archive que l'on veut utiliser.
adezip2(path, file, liste = "", pathto = "")Chemin d'accès au répertoire contenant l'archive à décompresser
Nom de l'archive zip (ex: 750712184.2016.2.05042016093044.in.zip)
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.
adezip2 est un simple wrapper autour de la fonction adzip.default. Cette fonction est dépréciée. En utilisant le paramètre nom_archive avec la fonciton adezip() on obtient le même résultat.
# 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
adezip2(path = dossier_archives,
file = "123456789.2017.7.21082017091715.out.zip",
liste = 'med',
pathto = tmp_dir)
#>
#> Dézippage de l'archive 123456789.2017.7.21082017091715.out.zip
#> Taille : 0.0072 Mo
#> Type : out
#> Finess : 123456789
#> Période : 2017 M7
#> Date prod : 2017-08-21 09:17:15
#> Fichiers : med
dir(tmp_dir, pattern = "2017\\.7.*med")
#> [1] "123456789.2017.7.med"