R exercise: Write a function called fget() that finds only function objects. It should have two arguments, name and env, and should obey the regular scoping rules for functions: if there's an object with a matching name that's not a function, look in the parent. (This function should be a equivalent to match.fun() extended to take a second argum…

fget.r

fget <- function(name, env = parent.frame(), inherits = TRUE) {
  if (identical(env, emptyenv())) stop(name, ' not found')
  
  if (exists(name, env = env, inherits = FALSE) && is.function(tmp <- env[[name]])) return(tmp)
  else if (inherits) fget(name, parent.env(env))
  else stop(name, ' not found')
}