R/atomic.R

In tarakc02/listbuilder: Prospecting tool

Defines functions is_flist.listbuilder is_flist is_atomic.listbuilder is_atomic

is_atomic <- function(lb) UseMethod("is_atomic")
is_atomic.listbuilder <- function(lb) {
    !any(get_operator(lb) %in% c("intersect", "union", "minus", "union all"))
}

is_flist <- function(lb) UseMethod("is_flist")
is_flist.listbuilder <- function(lb) {
    any(get_operator(lb) == "flist")
}