Nothing
## * Element function, used for the creation of gsets by elements
e <-
function(x, memberships = 1L)
{
if (is_element(x)) return(x)
if (length.set(memberships) > 1L)
memberships <- as.gset(memberships)
else if (isTRUE(memberships >= 1))
memberships <- as.integer(memberships)
.stop_if_memberships_are_invalid(memberships)
.make_element_from_support_and_memberships(x, memberships)
}
.make_element_from_support_and_memberships <-
function(x, memberships)
.structure(list(x),
memberships = memberships,
class = "gset_element")
print.gset_element <-
function(x, ...)
{
writeLines(format(x, ...))
invisible(x[[1]])
}
format.gset_element <-
function(x, ...)
{
paste(paste(LABEL(x[[1]], ...), collapse = " "),
" [",
paste(format(.get_memberships(x)), collapse = ", "),
"]",
sep = "")
}
LABEL.gset_element <-
function(x, limit, ...)
format(x, ...)
as.vector.gset_element <-
function(x, ...)
list(x)
as.list.gset_element <-
function(x, ...)
unclass(x)
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.