R exercise: Write your own version of get() using a function written in the style of where(). http://adv-r.had.co.nz/Environments.html

get.r

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