Remove all the objects, that are not functions

erase_non_functions(pattern = NULL, envir = parent.frame(),
  verbose = FALSE)

Arguments

pattern	regex pattern to select a set of objects; default: NULL
envir	environment; default: caller environment
verbose	print removed objects' names

NULL (function returns nothing)

Function can be used with envir = globalenv() argument.

cars.2 <- cars
test_fun <- function(x) x + 2
value <- 7
erase_non_functions(verbose = TRUE)
#> [1] "Removed objects: cars.2, value"