Nothing
module_paste <- function(lib_name, local_module_names) {
error_messages <-
check_vector(list(lib_name = lib_name))
error_messages <- append(
error_messages,
check_length(list(lib_name = lib_name))
)
error_messages <- append(
error_messages,
check_element_length(list(
lib_name = lib_name,
local_module_names = local_module_names
))
)
error_messages <- append(
error_messages,
check_strings(list(
lib_name = lib_name,
local_module_names = local_module_names
))
)
send_error_messages(error_messages)
full_module_names <- stats::setNames(
paste0(lib_name, ':', local_module_names),
names(local_module_names)
)
if (is.list(local_module_names)) {
return(as.list(full_module_names))
} else {
return(full_module_names)
}
}
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.