df <- data.frame(
category = rep(letters[1:3], each = 4),
value = 1:12,
date = Sys.Date() + 0:11
)
# Filter character column
get_filter_logical(df, c("a", "b"), column = "category")
# Filter numeric column with single value
get_filter_logical(df, 5, column = "value", comparison = `<=`)
# Filter numeric column with range
get_filter_logical(df, c(3, 8), column = "value", gte = TRUE, lte = FALSE)
Run the code above in your browser using DataLab