Calculate type of assignment to intervention in a study

Usage

f.assignmentType(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 .assignmentType, which is a factor with levels R (randomised assignment) and NR (all other types of assignment).

Examples

# fields needed
f.assignmentType()
#> $euctr
#> [1] "e811_randomised"                                                               
#> [2] "subjectDisposition.postAssignmentPeriods.postAssignmentPeriod.allocation.value"
#> 
#> $ctgov
#> [1] "study_design_info.allocation"
#> 
#> $ctgov2
#> [1] "protocolSection.designModule.designInfo.allocation"
#> 
#> $isrctn
#> [1] "trialDesign.studyDesign"
#> 
#> $ctis
#> [1] "authorizedPartI.trialDetails.protocolInformation.studyDesign.periodDetails.allocationMethod"                      
#> [2] "authorizedApplication.authorizedPartI.trialDetails.protocolInformation.studyDesign.periodDetails.allocationMethod"
#> 
#> [[6]]
#> [1] "ctrname"
#> 

# 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(
  field = "ctrname",
  calculate = "f.assignmentType",
  con = dbc)
#> To review trial concepts details, call 'help("ctrdata-trial-concepts")'
#> Querying database (8 fields)...
#> Typing fields...
#> Calculating f.assignmentType...                            

trialsDf
#> # A tibble: 25 × 3
#>    `_id`             ctrname .assignmentType
#>    <chr>             <chr>   <fct>          
#>  1 12949496          ISRCTN  R              
#>  2 13281214          ISRCTN  R              
#>  3 17473621          ISRCTN  R              
#>  4 2013-000615-24-BE EUCTR   NR             
#>  5 2016-004489-24-DE EUCTR   R              
#>  6 2019-002663-10-ES EUCTR   R              
#>  7 2022-000099-20-DE EUCTR   R              
#>  8 2022-500244-37-00 CTIS    NR             
#>  9 2023-505613-24-00 CTIS    NR             
#> 10 2023-508143-51-01 CTIS    NR             
#> # ℹ 15 more rows