Nothing
parUin <- function() {
if (exists("is.R") && is.function(is.R) && is.R()) {
par("pin") / {u <- par("usr"); c(diff(u[1:2]), diff(u[3:4]))}
} else par()$uin
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.