powered by
cert_verify(cert, root = ca_bundle())download_ssl_cert(host = "localhost", port = 443)ca_bundle()
download_ssl_cert(host = "localhost", port = 443)
ca_bundle()
# Verify the r-project HTTPS cert chain <- download_ssl_cert("www.r-project.org", 443) print(chain) print(as.list(chain[[1]])$pubkey) cert_verify(chain, ca_bundle())
Run the code above in your browser using DataLab