R/RowsColsQ.R
build_pivot_control_q.Rd
Some discussion and examples can be found here: https://winvector.github.io/FluidData/FluidData.html.
build_pivot_control_q(
tableName,
columnToTakeKeysFrom,
columnToTakeValuesFrom,
my_db,
...,
prefix = columnToTakeKeysFrom,
sep = NULL,
qualifiers = NULL
)
Name of table to scan for new column names.
character name of column build new column names from.
character name of column to get values from.
db handle
not used, force later args to be by name
column name prefix (only used when sep is not NULL)
separator to build complex column names.
optional named ordered vector of strings carrying additional db hierarchy terms, such as schema.
control table
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)
}
#> measType measValue
#> 1 ht measType_ht
#> 2 wt measType_wt