R/pivot-table.R

In edgararuiz/pivotable: Create pivot tables

pivot_table <- function(rows = NULL, columns = NULL,
                        values = getOption("pivotable_default_values"),
                        src = NULL
                        ) {
  structure(
    list(
      rows = rows,
      columns = columns,
      values = values,
      focus = NULL,
      retain = NULL,
      level = list()
    ),
    class = "pivot_table"
  )
}

#' @export
print.pivot_table <- function(x, ...) {
  print(to_pivottabler(x))
}