#' Simple function to remove columns that are only comprised of NA's
#' @param table table to remove NAs from
#' @return output table with no columns that are only NAs (trims columns)
#' @export
#'
dropcolumns <- function(table) {
return(table[colSums(!is.na(table)) > 0])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.