copy all objects to environment

vendor.R

vendor <- function() {
  ns <- asNamespace("fuj")
  writeLines(
    unlist(sapply(
      ls(ns),
      function(x) {
        format(call("assign", x, get(x, ns)))
      }
    )), 
    "R/fuj.R"
  )
}