#' reclase reclass <- function(x, result) { UseMethod('reclass') } reclass.default <- function(x, result) { class(result) <- unique(c(class(x)[[1]], class(result))) result }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.