R/operator.R

In tarakc02/listbuilder: Prospecting tool

Defines functions get_rhs get_lhs get_operator.listbuilder get_operator

#' @export
get_operator <- function(lb) UseMethod("get_operator")

#' @export
get_operator.listbuilder <- function(lb) {
    lb$operator
}

get_lhs <- function(lb) {
    lb$lhs
}

get_rhs <- function(lb) {
    lb$rhs
}