
Make a rename columns node (not a relational operation).
rename_columns(source, cmap)
source to rename from.
map written as new column names as keys and old column names as values.
rename columns node.
# NOT RUN {
my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
d <- dbi_copy_to(my_db, 'd',
data.frame(AUC = 0.6, R2 = 0.2, z = 3))
eqn <- rename_columns(d, c('AUC2' := 'AUC', 'R' := 'R2'))
cat(format(eqn))
sql <- to_sql(eqn, my_db)
cat(sql)
DBI::dbGetQuery(my_db, sql)
DBI::dbDisconnect(my_db)
# }
Run the code above in your browser using DataLab