build_pivot_control_q | R Documentation |
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
)
tableName |
Name of table to scan for new column names. |
columnToTakeKeysFrom |
character name of column build new column names from. |
columnToTakeValuesFrom |
character name of column to get values from. |
my_db |
db handle |
... |
not used, force later args to be by name |
prefix |
column name prefix (only used when sep is not NULL) |
sep |
separator to build complex column names. |
qualifiers |
optional named ordered vector of strings carrying additional db hierarchy terms, such as schema. |
control table
blocks_to_rowrecs_q
, build_pivot_control
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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.