## Not run: # Read private key
# key <- read_key("~/.ssh/id_rsa")
# str(key)
#
# # Read public key
# pubkey <- read_pubkey("~/.ssh/id_rsa.pub")
# str(pubkey)
#
# # Read certificates
# txt <- readLines("https://curl.haxx.se/ca/cacert.pem")
# bundle <- read_cert_bundle(txt)
# print(bundle)
# ## End(Not run)
Run the code above in your browser using DataLab