Load an R object without overwriting things in the current workspace

myload.R

myload = function(filename) {
  tryCatch({
    local({
      objects = load(filename)
      if (length(objects) == 1) return (get(objects))
      else return (lapply(sapply, get))
    })
  }, error = function(e) {cat("No such file")})
}