Resolve "Change OPENSSL_CONF configuration only temporally"

Closes #6 (closed)

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)