PKI.pem.split <- function(what) .Call(PKI_PEM_split, what)
PKI.pem.part <- function(what, body=TRUE, decode=FALSE) .Call(PKI_PEM_part, what, body, decode)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.