Run the data query with a CREATE TABLE AS .
materialize_sql(db, sql, table_name = mk_tmp_name_source("rqms")(), ...,
overwrite = TRUE, temporary = FALSE, qualifiers = NULL)
database connecton (rquery_db_info class or DBI connections preferred).
character, user supplied SQL statement.
character, name of table to create.
force later arguments to bind by name.
logical if TRUE drop an previous table.
logical if TRUE try to create a temporary table.
optional named ordered vector of strings carrying additional db hierarchy terms, such as schema.
table description
# NOT RUN {
if (requireNamespace("DBI", quietly = TRUE) && requireNamespace("RSQLite", quietly = TRUE)) {
my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
d <- rq_copy_to(my_db, 'd',
data.frame(AUC = 0.6, R2 = 0.2),
temporary = TRUE, overwrite = TRUE)
t <- materialize_sql(my_db, "SELECT AUC, R2, AUC - R2 AS d FROM d")
print(t)
print(execute(my_db, t))
DBI::dbDisconnect(my_db)
}
# }
Run the code above in your browser using DataLab