if (FALSE) {
conn <- connect_to_db("path/to/db")
# Initializing argument list
arguments = list()
# Using "equal" operator
arguments = add_argument(
list = arguments,
conn = conn,
variable = "cyl",
operator = "equal",
values = c(4, 6)
)
# Using "greater" operator
arguments = add_argument(
list = arguments,
conn = conn,
variable = "cyl",
operator = "greater",
values = 2
)
# Using "between" operator
arguments = add_argument(
list = arguments,
conn = conn,
variable = "cyl",
operator = "between",
values = c(2, 8)
)
# Manully constructing a filter statement
manual_arguments = add_argument(
list = arguments,
conn = conn,
statement = "SELECT mtcars_id FROM mtcars WHERE cyl = 4 OR cyl = 6)"
)
}
Run the code above in your browser using DataLab