#Example without using the obj argument
exclusion_table(
data = mtcars,
exclusion_criteria = c("disp <= 70 | disp >= 300",
"as.character(gear) == '4'"),
labels_exclusion = c("First exclusion",
"Second exclusion")
)
#Example using the obj argument
my_selection <- c(8, 6)
exclusion_table(
data = mtcars,
exclusion_criteria = c("cyl %in% my_selection"),
labels_exclusion = c("First exclusion"),
obj = list(my_selection = my_selection)
)
Run the code above in your browser using DataLab