# NOT RUN {
if (requireNamespace("DBI", quietly = TRUE) &&
requireNamespace("RSQLite", quietly = TRUE)) {
my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
d <- data.frame(measType = c("wt", "ht"),
measValue = c(150, 6),
stringsAsFactors = FALSE)
rquery::rq_copy_to(my_db,
'd',
d,
overwrite = TRUE,
temporary = TRUE)
build_pivot_control_q('d', 'measType', 'measValue',
my_db = my_db,
sep = '_') %.>%
print(.)
DBI::dbDisconnect(my_db)
}
# }
Run the code above in your browser using DataLab