R/print.grouped_unite.R

In jundoll/jmisc: Misc Package by jundoll

#' Undescribe
#' 
#' @param .data Undescribed
#' 
#' @return Undescribe
print.grouped_df_unite <- function(.data) {
  class(.data) <- class(.data)[class(.data) != 'grouped_df_unite']
  print(.data)
}

print.grouped_dt_unite <- function(.data) {
  class(.data) <- class(.data)[class(.data) != 'grouped_dt_unite']
  print(.data)
}