Set openssl version req

Author: jeroen

DESCRIPTION

@@ -18,7 +18,7 @@ BugReports: https://github.com/r-lib/gert/issues
 Imports:
     askpass,
     credentials (>= 1.2.1),
-    openssl (>= 1.4.1),
+    openssl (>= 2.0.3),
     rstudioapi (>= 0.11),
     sys,
     zip (>= 2.1.0)

NAMESPACE

@@ -84,6 +84,7 @@ importFrom(credentials,git_credential_ask)
 importFrom(credentials,git_credential_forget)
 importFrom(credentials,ssh_key_info)
 importFrom(credentials,ssh_read_key)
+importFrom(openssl,write_openssh_pem)
 importFrom(openssl,write_pem)
 importFrom(openssl,write_pkcs1)
 importFrom(openssl,write_ssh)

R/credentials.R

@@ -1,4 +1,4 @@
-#' @importFrom openssl write_ssh write_pem write_pkcs1
+#' @importFrom openssl write_ssh write_pem write_pkcs1 write_openssh_pem
 #' @importFrom credentials ssh_key_info git_credential_forget ssh_read_key
 #' @importFrom askpass askpass
 make_key_cb <- function(ssh_key = NULL, host = NULL, password = askpass){
@@ -18,7 +18,7 @@ make_key_cb <- function(ssh_key = NULL, host = NULL, password = askpass){
     tmp_key <- if(inherits(key, c("rsa", "dsa", "ecdsa"))){
       write_pkcs1(key, tempfile())
     } else {
-      openssl:::write_openssh_key(key, tempfile())
+      write_openssh_pem(key, tempfile())
     }
     if(.Platform$OS.type == "unix"){
       Sys.chmod(tmp_pub, '0644')