Nothing
verifyFunctionArguments <- function(arguments_l, abort_b_1 = TRUE, verbosity_b_1 = FALSE) {
l <- length(arguments_l)
if (l == 0) return(TRUE)
factory <- retrieveFactory()
argument_names <- names(arguments_l)
check <- lapply(seq_len(l), function(k) {
factory$verifyValue(FunctionParameterName(argument_names[k]), arguments_l[[k]])
})
validity <- sapply(check, function(e) e$validity)
if (verbosity_b_1) {
print(arguments_l)
# print(check)
cat(paste(argument_names, validity, sapply(check, function(e) e$message), '\n'), '\n')
}
if (all(validity)) return(TRUE)
if (abort_b_1) {
w <- which(validity == FALSE)
abort('argument mistmatch', strBracket(argument_names[w]), check[[w]]$message)
}
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.