Nothing
handle_no_function <- function(trace) {
pattern <- regex("could not find function \"(.*)\"$")
match <- str_match(trace$message, pattern)
if (is.na(match[[1, 1]])) {
return(FALSE)
}
missing_obj <- match[[1, 2]]
matches <- find_closest_string(missing_obj) %>%
list.filter(typeof(.$value) == "closure") %>%
list.map(.$var)
packages <- find_packages_containing_var(missing_obj)
user_defined <- find_user_defined_symbol(missing_obj)
send_message(build_error(
kind = "no_function",
trace = trace,
query = glue("r could not find function {missing_obj}"),
query_explain = "I took out the quotation marks to avoid being overly-specific in the query. I also left out the specific call expression, only keeping the name of the function.",
matches = matches,
packages = packages,
user_defined = user_defined,
missing_obj = missing_obj
))
TRUE
}
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.