URIencode <- function(what, reserved=NULL)
.Call(C_URIencode, what, if (is.logical(reserved)) { if (isTRUE(reserved == FALSE)) ";/?:@=&" else "" } else as.character(reserved))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.