if (requireNamespace("DBI", quietly = TRUE) && requireNamespace("RSQLite", quietly = TRUE)) {
db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
d <- rq_copy_to(db, 'd',
data.frame(AUC = 0.6, R2 = 0.2))
sql <- to_sql(d, db)
cat(sql)
print(DBI::dbGetQuery(db, "SELECT * FROM d"))
DBI::dbDisconnect(db)
}
Run the code above in your browser using DataCamp Workspace