Использование httr с зашифрованными SSL-сертификатами

Следующий пример отлично работает, когда certkey.key не зашифрован.

library(httr)    
cafile="ca.pem"
certfile="cert.pem"
keyfile="certkey.key"
r<-GET("https://www.example.com/api/timeseries&firstname=Joe", config(cainfo = cafile, sslcert = certfile, sslkey = keyfile))

Из соображений безопасности мне нужно решение, которое не требует незашифрованного ключевого файла. Когда certkey.key зашифрован, рукопожатие SSL завершается с ошибкой с сообщением:

Ошибка в curl::curl_fetch_memory(url, handle = handle): ошибка подключения SSL

Я думаю, это происходит из-за того, что httr не запрашивает парольную фразу, как вы могли бы видеть при использовании аналогичной команды curl. Вместо этого он выдает ошибки.