dbc <- nodbi::src_sqlite(
dbname = system.file("extdata", "demo.sqlite", package = "ctrdata"),
collection = "my_trials",
flags = RSQLite::SQLITE_RO)
dbFindIdsUniqueTrials(con = dbc)[1:10]
# alternative as of ctrdata version 1.21.0,
# using defaults of dbFindIdsUniqueTrials()
df <- dbGetFieldsIntoDf(
fields = "keyword",
calculate = "f.isUniqueTrial",
con = dbc)
# using base R
df[df[[".isUniqueTrial"]], ]
if (FALSE) {
library(dplyr)
df %>% filter(.isUniqueTrial)
}
Run the code above in your browser using DataLab