Nothing
#' @export
#' @method arrange periodic_df
#' @importFrom dplyr arrange
arrange.periodic_df <- function(.data, ...) {
periods <- get_period(.data)
.data <- unperiodic(.data)
.data <- NextMethod("arrange")
suppressWarnings(do.call(periodic, c(list(object = .data), periods)))
}
#' @export
#' @method distinct periodic_df
#' @importFrom dplyr distinct
distinct.periodic_df <- function(.data, ..., .keep_all = FALSE) {
periods <- get_period(.data)
.data <- unperiodic(.data)
.data <- NextMethod("distinct")
suppressWarnings(do.call(periodic, c(list(object = .data), periods)))
}
#' @export
#' @method filter periodic_df
#' @importFrom dplyr filter
filter.periodic_df <- function(.data, ...) {
periods <- get_period(.data)
.data <- unperiodic(.data)
.data <- NextMethod("filter")
suppressWarnings(do.call(periodic, c(list(object = .data), periods)))
}
#' @export
#' @method group_by periodic_df
#' @importFrom dplyr group_by
group_by.periodic_df <- function(.data, ..., add = FALSE) {
periods <- get_period(.data)
.data <- unperiodic(.data)
.data <- NextMethod("group_by")
suppressWarnings(do.call(periodic, c(list(object = .data), periods)))
}
#' @export
#' @method sample_frac periodic_df
#' @importFrom dplyr sample_frac
sample_frac.periodic_df <- function(tbl, size = 1, replace = FALSE, weight = NULL, .env = NULL, ...) {
periods <- get_period(.data)
.data <- unperiodic(.data)
.data <- NextMethod("sample_frac")
suppressWarnings(do.call(periodic, c(list(object = .data), periods)))
}
#' @export
#' @method sample_n periodic_df
#' @importFrom dplyr sample_n
sample_n.periodic_df <- function(tbl, size, replace = FALSE, weight = NULL, .env = NULL, ...) {
periods <- get_period(.data)
.data <- unperiodic(.data)
.data <- NextMethod("sample_n")
suppressWarnings(do.call(periodic, c(list(object = .data), periods)))
}
#' @export
#' @method slice periodic_df
#' @importFrom dplyr slice
slice.periodic_df <- function(.data, ...) {
periods <- get_period(.data)
.data <- unperiodic(.data)
.data <- NextMethod("slice")
suppressWarnings(do.call(periodic, c(list(object = .data), periods)))
}
#' @export
#' @method summarise periodic_df
#' @importFrom dplyr summarise
summarise.periodic_df <- function(.data, ...) {
periods <- get_period(.data)
.data <- unperiodic(.data)
.data <- NextMethod("summarise")
suppressWarnings(do.call(periodic, c(list(object = .data), periods)))
}
#' @export
#' @method ungroup periodic_df
#' @importFrom dplyr ungroup
ungroup.periodic_df <- function(x, ...) {
periods <- get_period(.data)
.data <- unperiodic(.data)
.data <- NextMethod("ungroup")
suppressWarnings(do.call(periodic, c(list(object = .data), periods)))
}
#' @export
dplyr::filter
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.