Trial concept calculated: objectives of the trial, by searching for text fragments found in fields describing its purpose, objective, background or hypothesis, after applying .isMedIntervTrial, because the text fragments are tailored to medicinal product interventional trials. This is a simplification, and it is expected that the criteria will be further refined. The text fragments only apply to English.
Arguments
- df
data frame such as from dbGetFieldsIntoDf. If `NULL`, prints fields needed in `df` for calculating this trial concept, which can be used with dbGetFieldsIntoDf.
Value
data frame with columns `_id` and `.trialObjectives`, which is a string with letters separated by a space, such as E (efficacy, including cure, survival, effectiveness); A (activity, including reponse, remission, seroconversion); S (safety); PK; PD (including biomarker); D (dose-finding, determining recommended dose); LT (long-term); and FU (follow-up).
Examples
# fields needed
f.trialObjectives()
#> $euctr
#> [1] "e21_main_objective_of_the_trial" "ctrname"
#>
#> $ctgov
#> [1] "detailed_description.textblock" "study_design_info.primary_purpose"
#> [3] "intervention.intervention_type" "study_type"
#>
#> $ctgov2
#> [1] "protocolSection.descriptionModule.detailedDescription"
#> [2] "protocolSection.designModule.designInfo.primaryPurpose"
#> [3] "protocolSection.armsInterventionsModule.interventions.type"
#> [4] "protocolSection.designModule.studyType"
#>
#> $isrctn
#> [1] "trialDescription.studyHypothesis"
#> [2] "trialDesign.trialType"
#> [3] "interventions.intervention.interventionType"
#> [4] "trialDesign.primaryStudyDesign"
#>
#> $ctis
#> [1] "authorizedPartI.trialDetails.trialInformation.trialObjective.mainObjective"
#> [2] "authorizedPartI.trialDetails.trialInformation.trialObjective.trialScopes.otherDescription"
#> [3] "authorizedApplication.authorizedPartI.trialDetails.trialInformation.trialObjective.mainObjective"
#> [4] "authorizedApplication.authorizedPartI.trialDetails.trialInformation.trialObjective.trialScopes.otherDescription"
#> [5] "ctrname"
#>
if (FALSE) { # \dontrun{
# apply trial concept when creating data frame
dbc <- nodbi::src_sqlite(
dbname = system.file("extdata", "demo.sqlite", package = "ctrdata"),
collection = "my_trials", flags = RSQLite::SQLITE_RO)
trialsDf <- dbGetFieldsIntoDf(
calculate = "f.trialObjectives",
con = dbc)
} # }