This uses the @evalNamespace
directive to declare exports for objects by
name or when provided in a function.
ns_export <- function(nms)
sprintf("export(
ns_export_named <-function(x)
nms <- names(x)
sprintf("export(
#' @evalNamespace ns_export(names(fns))