Nothing
# Find duplicate values in a list of strings
find_duplicate_strings <- function(x) {
unique(x[duplicated(x)])
}
# Get an attribute for each element in a list
list_attrs <- function(x, a) {
sapply(X = x, FUN = function(x) attr(x, a))
}
# Set multiple attributes for an object
set_attributes <- function(x, attrs = list()) {
for (key in names(attrs)) attr(x, key) <- attrs[[key]]
x
}
# Raise an error if a required package is not installed
stop_without_package <- function(package) {
if (!requireNamespace(package, quietly = TRUE)) {
stop(sprintf("This function requires the '%s' package", package),
call. = FALSE)
}
}
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.