Nothing
setGeneric("flattened_to_factor",
function(object, ...) standardGeneric("flattened_to_factor"))
setMethod("flattened_to_factor", "data.frame", function(object, sep = " ") {
LL(plate.pos <- which(colnames(object) == RESERVED_NAMES[["plate"]]), sep)
if (plate.pos == 1L)
return(unique(object[, plate.pos]))
result <- aggregate(object[, seq_len(plate.pos)],
by = list(object[, plate.pos]), FUN = `[[`, i = 1L)
result <- as.list(result[, seq.int(2L, ncol(result) - 1L), drop = FALSE])
as.factor(do.call(paste, c(result, sep = sep)))
}, sealed = SEALED)
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.