#' @importFrom flipTransformations Factor
tidyFactor <- function(x)
{
x <- Factor(x)
levels(x)[table(x) == 0] <- NA # Same basic idea as droplevels, except that it retains the attribute 'label'.
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.