R/dplyr_fix.R

In eyetrackingR: Eye-Tracking Data Analysis

# Filter

#' @export
#' @method filter eyetrackingR_df
filter.eyetrackingR_df <- function(.data, ...) reclass(.data, NextMethod())
#' @export
#' @method filter_ eyetrackingR_df
filter_.eyetrackingR_df <- function(.data, ...) reclass(.data, NextMethod())

# mutate
#' @export
#' @method mutate eyetrackingR_df
mutate.eyetrackingR_df <- function(.data, ...) reclass(.data, NextMethod())
#' @export
#' @method mutate_ eyetrackingR_df
mutate_.eyetrackingR_df <- function(.data, ...) reclass(.data, NextMethod())


# arrange
#' @export
#' @method arrange eyetrackingR_df
arrange.eyetrackingR_df <- function(.data, ...) reclass(.data, NextMethod())
#' @export
#' @method arrange_ eyetrackingR_df
arrange_.eyetrackingR_df <- function(.data, ...) reclass(.data, NextMethod())


# group_by
#' @export
#' @method group_by eyetrackingR_df
group_by.eyetrackingR_df <- function(.data, ...) reclass(.data, NextMethod())
#' @export
#' @method group_by_ eyetrackingR_df
group_by_.eyetrackingR_df <- function(.data, ...) reclass(.data, NextMethod())



# joins
# drawing a line in the sand: left and inner are OK, but others risk stripping too much
#' @export
#' @method left_join eyetrackingR_df
left_join.eyetrackingR_df <- function(x, ...) reclass(x, NextMethod())
#' @export
#' @method inner_join eyetrackingR_df
inner_join.eyetrackingR_df <- function(x, ...) reclass(x, NextMethod())

# extract
#' @export
`[.eyetrackingR_df` <- function(x, ...) reclass(x, NextMethod())