conn <- connect_to_db(":memory:")
mtcars$mtcars_id = 1:nrow(mtcars)
example_data = data.frame(
example_id = 1:150,
mtcars_id = rep(1:30, each = 5),
example_value = runif(150, 0, 1)
)
DBI::dbWriteTable(conn, "mtcars_table", mtcars)
DBI::dbWriteTable(conn, "example_table", example_data)
# 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