#' @titleFind Source functions
#' @export
sourceFun <- function(fun_name, print_dir = F) {
result <- list.files(list.dirs(), fun_name, recursive = T)
if (length(result) != 0) {
path <- result[grep("/", result, fixed = T)]
source(path)
if (print_dir) {
outputFunProc(I, fun_name, path)
} else {
outputFunProc(I, fun_name)
}
} else {
outputString("Function could not be found")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.