#----------------------------------------------------------------------------#
#' @title Character names
#' @description Return a list of a Character variables
#' @param x a dataframe to deal with
#' @export
Cnames = function (x)
{
clist <- sapply(x, is.character)
clist <- colnames(x[, clist])
return(clist)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.