More built in options for pt_demographics

[kylebaron]

demo_fun <- function(value = seq(1,5), name = "",  ..., fmt = sig,
         digits = 3, maxex = 5) {
  ans <- tibble(
    `Mean (SD)` = pmtables:::.mean_sd(value, fmt = fmt, digits = digits, maxex = maxex),
     Median = sig(median(value, na.rm = TRUE)),
    `Min / Max` = pmtables:::.min_max(value, fmt = fmt, digits = digits, maxex = maxex),
    `Missing` = as.character(sum(is.na(value)), digits = digits, maxex = maxex)
  )
  ans
}

Smart drop of Missing.