dbc <- nodbi::src_sqlite(
dbname = system.file("extdata", "demo.sqlite", package = "ctrdata"),
collection = "my_trials"
)
df <- dbGetFieldsIntoDf(
fields = c("overall_status", "x5_trial_status"),
con = dbc
)
statusvalues <- list(
"ongoing" = c("Recruiting", "Active", "Ongoing"),
"completed" = c("Completed", "Prematurely Ended", "Terminated"),
"other" = c("Withdrawn", "Suspended", "No longer available")
)
dfMergeVariablesRelevel(
df = df,
colnames = 'contains("status")',
levelslist = statusvalues
)
Run the code above in your browser using DataLab