R/utils.R

In geanes/bioanth: Datasets useful in Biological Anthropology

# Quick and dirty print variables for documentation ---------------------------
doc_vars <- function(df){
  n <- names(df)
  sapply(n, function(x) cat("#'   \\item{", as.symbol(x), "}{}", "\n", sep = ""))
}