Nothing
#' search functions
#'
#' Like search_files but for functions
#'
#' @param pat Pattern to match
#' @param fun Function to inspect
#' @export
search_function <- function(pat, fun) {
f <- paste(as.character(as.list(fun)), collapse = "\n")
dir <- tempdir()
path <- file.path(dir, "fun")
writeLines(f, path)
search_files(pat, dir)
}
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.