R/print-data.R

Defines functions format_exported_data format_export_data

format_exported_data <- function(x) {
  exports <- Filter(Negate(is.null), x$data[x$exports])
  unlist(unname(Map(format_export_data, names(exports), exports)))
}

format_export_data <- function(name, data) {
  paste0(name, ": ", paste(class(data), collapse = ", "), " (", mode(data), "[", length(data), "])")
}
r-lib/pkgapi documentation built on March 7, 2020, 10:55 a.m.