Nothing
#' @keywords internal
#'
cutout.default <- function(data, startcol=10, pattern.out = c(),
init.cutout = c()){
cutout <- init.cutout
for (j in (startcol:ncol(data))){
if (nrow( unique(data[which(! data[,j][[1]] %in% pattern.out),j]) ) > 2){
cutout <- c(cutout, names(data)[j])
}
}
return(cutout)
}
#
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.