Calculate phase of a clinical trial

Trial concept calculated: phase of a clinical trial as per ICH E8(R1).

Usage

f.trialPhase(df = NULL)

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 `.trialPhase`, which is an ordered factor with levels `phase 1`, `phase 1+2`, `phase 2`, `phase 2+3`, `phase 2+4`, `phase 3`, `phase 3+4`, `phase 1+2+3`, `phase 4`, `phase 1+2+3+4`.

Examples

# fields needed
f.trialPhase()
#> $euctr
#> [1] "e71_human_pharmacology_phase_i"        
#> [2] "e72_therapeutic_exploratory_phase_ii"  
#> [3] "e73_therapeutic_confirmatory_phase_iii"
#> [4] "e74_therapeutic_use_phase_iv"          
#> 
#> $ctgov
#> [1] "phase"
#> 
#> $ctgov2
#> [1] "protocolSection.designModule.phases"
#> 
#> $isrctn
#> [1] "interventions.intervention.phase"
#> 
#> $ctis
#> [1] "authorizedPartI.trialDetails.trialInformation.trialCategory.trialPhase"                      
#> [2] "authorizedApplication.authorizedPartI.trialDetails.trialInformation.trialCategory.trialPhase"
#> 

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.trialPhase",
  con = dbc)
} # }