#Should probaby use S3 to unfactor different classes
#in different ways... but I only ever struggle w/ numerics
#' @export
unfactor <- function(x) as.numeric(levels(x))[x]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.