topercent <- function(x) {
if (is.numeric(x)) {
per <- paste0(as.character(round(x, digits = 4) * 100), "%")
} else {
per <- x
}
per
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.