How to remove all variables except functions in R

Question

I have loaded different objects in R console and I can remove all of them using:

rm(list=ls())

removing only functions but not the variables:

rm(list=lsf.str())

but How to remove all varaibles except the functions?

Answer 1

One line that removes all objects except for functions:

rm(list = setdiff(ls(), lsf.str()))