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()
arguments = add_argument(
list = arguments,
conn = conn,
variable = "cyl",
operator = "equal",
values = c(4, 6)
)
arguments = add_argument(
list = arguments,
conn = conn,
variable = "example_value",
operator = "greater",
values = 0.4
)
# Return specified variables
target_vars = c("mtcars_id", "example_id", "cyl")
query_results = query_db(
conn = conn,
arguments = arguments,
target_vars = target_vars,
target_table = "example_table",
argument_relation = "and"
)
# Return all variables in mtcars_table and example_value from example_table
query_results = query_db(
conn = conn,
arguments = arguments,
target_vars = c("default", "example_value"),
target_table = "mtcars_table",
argument_relation = "and"
)
Run the code above in your browser using DataLab