Content of atih.R into getOvalide function in functionsOvalide.R

atih.R

@@ -1,80 +0,0 @@
-library(dplyr)
-library(magrittr)
-library(RCurl)
-library(stringr)
-library(rvest)
-
-CHUuser <- readline('CHU user : ')
-CHUpass <- readline('CHU pass : ')
-ATIHuser <- readline('ePMSI user : ')
-ATIHpass <- readline('ePMSI pass : ')
-
-curlopts <- list(proxy = str_c(CHUuser, ':', CHUpass, '@ssl-proxy.chu-nancy.fr:8080'),
-                 follow = T,
-                 cookiejar = 'cookie.jar',
-                 cookiefile = 'cookie.jar')
-
-curl <- str_c('curl -x "', CHUuser, ':', CHUpass, '@ssl-proxy.chu-nancy.fr:8080" -b cookie.jar -c cookie.jar -L ')
-pasrel <- 'https://pasrel.atih.sante.fr/cas/login'
-epmsi <- 'https://epmsi.atih.sante.fr/'
-
-annee <- 2015
-mois <- "10"
-
-# Cookie
-system(str_c(curl, pasrel))
-
-# Token
-getURL(pasrel, .opts = curlopts) %>%
-  read_html %>%
-  html_node("input[name='lt']") %>%
-  html_attr("value") -> token
-
-# Login
-system(str_c(curl, '-d "username=', ATIHuser, '&password=', curlPercentEncode(ATIHpass), '&lt=', token, '&_eventId=submit&submit=SE+CONNECTER" ', url))
-
-# Auth
-getURL(str_c(epmsi, 'authenticate.do'),
-       .opts = curlopts)
-
-# Applis
-getURL(str_c(epmsi, 'jsp/epmsi/applis/applis.jsp'),
-       .opts = curlopts)
-
-# Ovalide
-getURL(str_c(epmsi, 'jsp/epmsi/applis/applisMat2a.jsp'),
-       referer = str_c(epmsi, 'jsp/epmsi/applis/applis.jsp'),
-       .opts = curlopts)
-
-# Ovalide MCO T2A
-getURL(str_c(epmsi, 'appli_16.do?champPmsi=1&statut=1&applicationType=3'),
-       referer = str_c(epmsi, 'jsp/epmsi/applis/applisMat2a.jsp'),
-       .opts = curlopts)
-
-# Resultats pour annee/mois
-getURL(str_c(epmsi, 'appli_05.do?year=', annee, '&period=', mois),
-       referer = str_c(epmsi, 'appli_16.do?champPmsi=1&statut=1&applicationType=3'),
-       .opts = curlopts)
-
-# Tableaux
-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'))
-
-# Resultats pour annee/mois
-getURL(str_c(epmsi, 'appli_05.do?year=', annee - 1, '&period=', mois),
-       referer = str_c(epmsi, 'appli_16.do?champPmsi=1&statut=1&applicationType=3'),
-       .opts = curlopts)
-
-# Tableaux
-getBinaryURL(str_c(epmsi, 'appli_05.zip?action=4&win=1'),
-             referer = str_c(epmsi, 'appli_05.do?year=', annee - 1, '&period=', mois),
-             .opts = curlopts) %>%
-  writeBin(con=str_c(annee - 1, '_', mois, '.zip'))
-
-unzip(str_c(annee, '_', mois, '.zip'))
-unzip(str_c(annee - 1, '_', mois, '.zip'))
-
-unlink(str_c(annee, '_', mois, '.zip'))
-unlink(str_c(annee - 1, '_', mois, '.zip'))

functionsOvalide.R

@@ -1,4 +1,6 @@
 library(dplyr)
+library(magrittr)
+library(RCurl)
 library(readr)
 library(stringr)
 library(rvest)
@@ -33,4 +35,73 @@ extractOvalide <- function(annee, mois, table, subtable = "")
       html_table(trim = T, dec = ",") %>%
       .[[1]]
   }
-}
+}
+
+getOvalide <- function(CHUuser, CHUpass, ATIHuser, ATIHpass, annee, mois)
+{
+  curlopts <- list(proxy = str_c(CHUuser, ':', CHUpass, '@ssl-proxy.chu-nancy.fr:8080'),
+                   follow = T,
+                   cookiejar = 'cookie.jar',
+                   cookiefile = 'cookie.jar')
+
+  curl <- str_c('curl -x "', CHUuser, ':', CHUpass, '@ssl-proxy.chu-nancy.fr:8080" -b cookie.jar -c cookie.jar -L ')
+  pasrel <- 'https://pasrel.atih.sante.fr/cas/login'
+  epmsi <- 'https://epmsi.atih.sante.fr/'
+
+  unlink("cookie.jar")
+
+  # Cookie
+  system(str_c(curl, pasrel))
+
+  # Token
+  getURL(pasrel, .opts = curlopts) %>%
+    read_html %>%
+    html_node("input[name='lt']") %>%
+    html_attr("value") -> token
+
+  # Login
+  system(str_c(curl, '-d "username=', ATIHuser, '&password=', curlPercentEncode(ATIHpass), '&lt=', token, '&_eventId=submit&submit=SE+CONNECTER" ', url))
+
+  # Auth
+  getURL(str_c(epmsi, 'authenticate.do'),
+         .opts = curlopts)
+
+  # Applis
+  getURL(str_c(epmsi, 'jsp/epmsi/applis/applis.jsp'),
+         .opts = curlopts)
+
+  # Ovalide
+  getURL(str_c(epmsi, 'jsp/epmsi/applis/applisMat2a.jsp'),
+         referer = str_c(epmsi, 'jsp/epmsi/applis/applis.jsp'),
+         .opts = curlopts)
+
+  # Ovalide MCO T2A
+  getURL(str_c(epmsi, 'appli_16.do?champPmsi=1&statut=1&applicationType=3'),
+         referer = str_c(epmsi, 'jsp/epmsi/applis/applisMat2a.jsp'),
+         .opts = curlopts)
+
+  # Resultats pour annee/mois
+  getURL(str_c(epmsi, 'appli_05.do?year=', annee, '&period=', mois),
+         referer = str_c(epmsi, 'appli_16.do?champPmsi=1&statut=1&applicationType=3'),
+         .opts = curlopts)
+
+  # Tableaux
+  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'))
+
+  # Resultats pour annee/mois
+  getURL(str_c(epmsi, 'appli_05.do?year=', annee - 1, '&period=', mois),
+        referer = str_c(epmsi, 'appli_16.do?champPmsi=1&statut=1&applicationType=3'),
+        .opts = curlopts)
+
+  # Tableaux
+  getBinaryURL(str_c(epmsi, 'appli_05.zip?action=4&win=1'),
+              referer = str_c(epmsi, 'appli_05.do?year=', annee - 1, '&period=', mois),
+              .opts = curlopts) %>%
+                writeBin(con=str_c(annee - 1, '_', mois, '.zip'))
+
+  unzip(str_c(annee, '_', mois, '.zip'))
+  unzip(str_c(annee - 1, '_', mois, '.zip'))
+}