R/tabit.R

In petermeissner/tabit: Simple Tabulation Made Simple

#' @rdname tabit
#' @export
ti_tab1 <-
  function(...){
    .Deprecated("tabit_1/tabit_df")
    tabit(...)
  }

#' tabit
#'
#' Tabulation function that automatically performs one way tabulations as well
#' as cross tabulations depending on the input type - inheriting from
#' data.frame or not.
#'
#' @param ... parameters forwarded to tabit_1/tabit_df
#'
#' @export
#'
tabit <-
  function(...){
    if ( inherits(list(...)[[1]], "data.frame") ){
      return(tabit_x(...))
    } else {
     return(tabit_1(...))
    }
  }