In CIDA-CSPH/CIDAtools: This package contains tools for CIDA projects

logo <- system.file("figures", "sph_cida_wm_blk.png", package="CIDAtools")
knitr::include_graphics(logo)

knitr::opts_chunk$set(echo = F, message = F, warning = F)
library(pander)

# set your datasets as objects
# load(file = '')

## Placeholder: 
data("cars")
cars$group <- rep(1:2, each = 25)
data("iris")

# set maximum number of values to list
mVal <- 10

## No need to change anything else

# function to get values
values <- function(variable){
  if(is.character(variable)){
    fxrs <- levels(as.factor(variable))
  }
  else fxrs <- unique(variable)
  if(length(fxrs) > mVal) fxrs <- paste0(">", mVal, " unique values")
  return(fxrs)
}

# function to make data dictionary
makedic <- function(dfname){
  df <- get(dfname)
  Values <- lapply(df, values)
  Values <- sapply(Values, paste0, collapse = ' \\\n ')
  Type <- sapply(df, class)
  # POSIXt classes will have 2 classes need to remove one and 
  # set to date
  Type <- lapply(Type, sub, pattern = 'POSIXt', replacement = "Date")
  Type <- sapply(Type, grep, pattern = 'POSI', value = T, invert = T)
  dic <- data.frame(Variables = names(df), Type = Type, 
                    "Unique Values" = Values, 
                    stringsAsFactors = F, row.names = NULL, 
                    check.names = F)
  return(dic)
}

dataframes <- ls()[sapply(ls(), function(x) is.data.frame(get(x)))]
printtbl <- function(dfname){
  set.alignment('left')
  pander(makedic(dfname), caption = paste0("'", dfname, "' data set"))
  return()
}

panderOptions('knitr.auto.asis', FALSE)
panderOptions('keep.line.breaks', TRUE)
# panderOptions('table.split.cells', Inf)
# panderOptions('table.split.table', Inf)
invisible(sapply(dataframes, printtbl))