Which function has the longest argument name?

longest_arg_name.R

for (package in installed.packages()[, 1])
  library(package, character.only = TRUE)

ns <- search()
output <- vector("list", length(ns))
for (i in seq_along(output)) {
  namespace <- ns[[i]]
  env <- as.environment(namespace)
  objs <- mget(
    objects(envir = env),
    env
  )
  if (!length(objs)) next
  funs <- objs[sapply(objs, is.function)]
  formals <- lapply(funs, function(x) {
    names(formals(x))
  })
  len <- lapply(formals, function(x) {
    setNames(nchar(x), x)
  })
  all_arg_lengths <- sort(((unlist(unname(len)))))
  output[[i]] <- all_arg_lengths
}

tail(sort(unlist(output)))