Archives ePMSI dans un sous-répertoire

functionsOvalide.R

@@ -118,7 +118,7 @@ getOvalide <- function(CHUuser, CHUpass, annee, mois)
   getBinaryURL(str_c(epmsi, 'appli_05.zip?action=4&win=1'),
                referer = str_c(epmsi, 'appli_05.do?year=', annee, '&period=', mois),
                .opts = curlopts) %>%
-  writeBin(con=str_c(annee, '_', mois, '.zip'))
+  writeBin(con = str_c('ePMSI/', annee, '_', mois, '.zip'))
 
-  unzip(str_c(annee, '_', mois, '.zip'))
+  unzip(str_c('ePMSI/', annee, '_', mois, '.zip'))
 }