# NOT RUN {
path <- file.path(tempdir(), "find_functions_example")
dir.create(path, showWarnings = FALSE)
code <- "
add <- function(x, y) {
x + y
}
add_one = function(x) {
add(x, 1)
}
assign('add_two', function(x) {
add(x, 2)
})
"
write(code, file.path(path, "code.R"))
find_functions(path)
# }
Run the code above in your browser using DataLab