R/tbl_elementset_base-class.R

In Kayla-Morrell/GeneSet: Representing Different Biological Sets

.subclasses <- c("tbl_elementset_base",
                "tbl_element",
                "tbl_set",
                "tbl_elementset")

subclass_tbl_elementset_base <-
    function(x, subclass)
{
    class(x) <- c(subclass, "tbl_elementset_base", class(x))
    x
}

#' @importFrom dplyr filter
filter.tbl_elementset_base <-
    function(.data, ...)
{
    tbl <- NextMethod()
    class(tbl) <- class(.data)
    tbl
}

#' @importFrom dplyr select
select.tbl_elementset_base <-
    function(.data, ...)
{
    tbl <- NextMethod()
    class(tbl) <- class(.data)
    tbl
}

#' @importFrom dplyr mutate
mutate.tbl_elementset_base <-
    function(.data, ...)
{
    tbl <- NextMethod()
    class(tbl) <- class(.data)
    tbl
}

.tbl_nongroup_vars.tbl_elementset_base <-
    function(x)
{
    class = class(x)
    class(x) = setdiff(class, .subclasses)
    .tbl_nongroup_vars(x)
}

#' @importFrom dplyr summarise
summarise.tbl_elementset_base <-
    function(.data, ...)
{
    tbl <- NextMethod()
    class(tbl) <- class(.data)
    tbl
}

summarize.tbl_elementset_base <- summarise.tbl_elementset_base

#' @importFrom dplyr arrange
arrange.tbl_elementset_base <-
    function(.data, ...)
{
    tbl <- NextMethod()
    class(tbl) <- class(.data)
    tbl
}

#' @importFrom dplyr union
union.tbl_elementset_base <- function(x, y, ...)
{
    stopifnot(is(x) == is(y))
    tbl <- NextMethod()
    class(tbl) <- class(x)
    tbl
}

#' @importFrom dplyr intersect
intersect.tbl_elementset_base <- function(x, y, ...)
{
    stopifnot(is(x) == is(y))
    tbl <- NextMethod()
    class(tbl) <- class(x)
    tbl
}

#' @importFrom dplyr left_join
left_join.tbl_elementset_base <- function(x, y, by, copy, suffix, ...)
{
    tbl <- NextMethod()
    class(tbl) <- class(x)
    tbl
}