diff --git a/R/login.R b/R/login.R index ef05fec84028ec4acc6fc5728f1077248c221080..62f00ec2120aa14eea6d342d03a96f739ff4bc78 100644 --- a/R/login.R +++ b/R/login.R @@ -13,8 +13,10 @@ #' login("pnom", "myPassword") #' } login <- function(username, - password, - cfg = config::get(file = system.file("config.yml", package = "hatata"))) { + password, + cfg = config::get(file = system.file("config.yml", package = "hatata"))) { + openssl_conf = Sys.getenv("OPENSSL_CONF") + on.exit(Sys.setenv(OPENSSL_CONF = openssl_conf)) Sys.setenv(OPENSSL_CONF = system.file("openssl.cnf", package = "hatata")) Sys.setlocale('LC_ALL','C') rs <- rvest::session(cfg$url_temps_activites)