From 44fe24a1da472131892ed58b326b0a8e1df9c955 Mon Sep 17 00:00:00 2001
From: Grelot Frederic <frederic.grelot@irstea.fr>
Date: Wed, 9 Jun 2021 05:33:14 +0000
Subject: [PATCH] Update login.R - inclusion of on.exit to restore
Sys.getenv("OPENSSL_CONF") #6
---
R/login.R | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/R/login.R b/R/login.R
index ef05fec..62f00ec 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)
--
GitLab