# use non-exported function from teal.slice
calls_combine_by <- getFromNamespace("calls_combine_by", "teal.slice")
calls <- list(
quote(SEX == "F"), # subsetting on factor
quote(AGE >= 20 & AGE <= 50), # subsetting on range
quote(!SURV) # subsetting on logical
)
calls_combine_by(calls, "&")
Run the code above in your browser using DataLab