Skip to contents

[Stable]

Usage

as_cdisc(
  x,
  parent = if (identical(get_dataname(x), "ADSL")) character(0) else "ADSL"
)

# S3 method for TealDataset
as_cdisc(
  x,
  parent = if (identical(get_dataname(x), "ADSL")) character(0) else "ADSL"
)

# S3 method for TealDatasetConnector
as_cdisc(
  x,
  parent = if (identical(get_dataname(x), "ADSL")) character(0) else "ADSL"
)

Arguments

x

an object of TealDataset or TealDatasetConnector class

parent

(character, optional) parent dataset name

Value

(CDISCTealDataset or CDISCTealDatasetConnector) object

Details

Convert a TealDataset(Connector) object to a CDISCTealDataset(Connector) object

Note

If passed a CDISC-flavored object it returns the unmodified object.

Examples

# TealDataset --------

library(scda)
as_cdisc(
  dataset(
    "ADSL",
    synthetic_cdisc_data("latest")$adsl,
    keys = get_cdisc_keys("ADSL"),
    code = "ADSL <- synthetic_cdisc_data(\"latest\")$adsl"
  )
)
#> A CDISCTealDataset object containing the following data.frame (400 rows and 44 columns):
#>   STUDYID               USUBJID SUBJID SITEID AGE  AGEU SEX
#> 1 AB12345  AB12345-CHN-3-id-128 id-128  CHN-3  32 YEARS   M
#> 2 AB12345 AB12345-CHN-15-id-262 id-262 CHN-15  35 YEARS   M
#> 3 AB12345  AB12345-RUS-3-id-378 id-378  RUS-3  30 YEARS   F
#> 4 AB12345 AB12345-CHN-11-id-220 id-220 CHN-11  26 YEARS   F
#> 5 AB12345  AB12345-CHN-7-id-267 id-267  CHN-7  40 YEARS   M
#> 6 AB12345 AB12345-CHN-15-id-201 id-201 CHN-15  49 YEARS   M
#>                        RACE                 ETHNIC COUNTRY DTHFL         INVID
#> 1                     ASIAN NOT HISPANIC OR LATINO     CHN     N  INV ID CHN-3
#> 2 BLACK OR AFRICAN AMERICAN NOT HISPANIC OR LATINO     CHN     N INV ID CHN-15
#> 3                     ASIAN NOT HISPANIC OR LATINO     RUS     N  INV ID RUS-3
#> 4                     ASIAN NOT HISPANIC OR LATINO     CHN     N INV ID CHN-11
#> 5                     ASIAN                UNKNOWN     CHN     N  INV ID CHN-7
#> 6                     ASIAN NOT HISPANIC OR LATINO     CHN     N INV ID CHN-15
#>           INVNAM            ARM ARMCD         ACTARM ACTARMCD         TRT01P
#> 1  Dr. CHN-3 Doe      A: Drug X ARM A      A: Drug X    ARM A      A: Drug X
#> 2 Dr. CHN-15 Doe C: Combination ARM C C: Combination    ARM C C: Combination
#> 3  Dr. RUS-3 Doe C: Combination ARM C C: Combination    ARM C C: Combination
#> 4 Dr. CHN-11 Doe     B: Placebo ARM B     B: Placebo    ARM B     B: Placebo
#> 5  Dr. CHN-7 Doe     B: Placebo ARM B     B: Placebo    ARM B     B: Placebo
#> 6 Dr. CHN-15 Doe C: Combination ARM C C: Combination    ARM C C: Combination
#>           TRT01A REGION1 STRATA1 STRATA2    BMRKR1 BMRKR2 ITTFL SAFFL BMEASIFL
#> 1      A: Drug X    Asia       C      S2 14.424934 MEDIUM     Y     Y        Y
#> 2 C: Combination    Asia       C      S1  4.055463    LOW     Y     Y        N
#> 3 C: Combination Eurasia       A      S1  2.803240   HIGH     Y     Y        Y
#> 4     B: Placebo    Asia       B      S2 10.262734 MEDIUM     Y     Y        Y
#> 5     B: Placebo    Asia       C      S1  6.206763    LOW     Y     Y        N
#> 6 C: Combination    Asia       C      S2  6.906799 MEDIUM     Y     Y        Y
#>   BEP01FL     RANDDT             TRTSDTM             TRTEDTM       EOSSTT
#> 1       Y 2019-02-22 2019-02-24 11:09:18 2021-02-23 22:47:42    COMPLETED
#> 2       N 2019-02-26 2019-02-26 09:05:00 2021-02-25 20:43:24    COMPLETED
#> 3       N 2019-02-24 2019-02-28 03:19:08 2021-02-27 14:57:32    COMPLETED
#> 4       Y 2019-02-27 2019-03-01 13:33:03 2021-03-01 01:11:27    COMPLETED
#> 5       N 2019-03-01 2019-03-02 00:09:16 2021-03-01 11:47:40    COMPLETED
#> 6       N 2019-03-05 2019-03-05 15:23:44 2021-02-17 20:24:57 DISCONTINUED
#>         EOTSTT      EOSDT EOSDY          DCSREAS DTHDT DTHCAUS DTHCAT LDDTHELD
#> 1    COMPLETED 2021-02-23   731             <NA>  <NA>    <NA>   <NA>       NA
#> 2    COMPLETED 2021-02-25   731             <NA>  <NA>    <NA>   <NA>       NA
#> 3    COMPLETED 2021-02-27   731             <NA>  <NA>    <NA>   <NA>       NA
#> 4    COMPLETED 2021-03-01   731             <NA>  <NA>    <NA>   <NA>       NA
#> 5    COMPLETED 2021-03-01   731             <NA>  <NA>    <NA>   <NA>       NA
#> 6 DISCONTINUED 2021-02-17   716 LACK OF EFFICACY  <NA>    <NA>   <NA>       NA
#>   LDDTHGR1   LSTALVDT DTHADY study_duration_secs
#> 1     <NA> 2021-03-05     NA            63113904
#> 2     <NA> 2021-03-15     NA            63113904
#> 3     <NA> 2021-03-15     NA            63113904
#> 4     <NA> 2021-03-17     NA            63113904
#> 5     <NA> 2021-03-25     NA            63113904
#> 6     <NA> 2021-03-01     NA            63113904
#> 
#> ...
#> # A tibble: 6 × 44
#>   STUDYID USUBJID     SUBJID SITEID   AGE AGEU  SEX   RACE  ETHNIC COUNTRY DTHFL
#>   <chr>   <chr>       <chr>  <chr>  <int> <fct> <fct> <fct> <fct>  <fct>   <fct>
#> 1 AB12345 AB12345-CH… id-11  CHN-9     28 YEARS F     NATI… HISPA… CHN     N    
#> 2 AB12345 AB12345-CH… id-352 CHN-16    28 YEARS M     ASIAN HISPA… CHN     N    
#> 3 AB12345 AB12345-CH… id-186 CHN-1     27 YEARS M     ASIAN NOT H… CHN     N    
#> 4 AB12345 AB12345-CH… id-371 CHN-1     28 YEARS F     ASIAN NOT H… CHN     Y    
#> 5 AB12345 AB12345-CH… id-233 CHN-1     36 YEARS F     BLAC… NOT H… CHN     N    
#> 6 AB12345 AB12345-US… id-131 USA-12    44 YEARS F     AMER… NOT H… USA     N    
#> # … with 33 more variables: INVID <chr>, INVNAM <chr>, ARM <fct>, ARMCD <fct>,
#> #   ACTARM <fct>, ACTARMCD <fct>, TRT01P <fct>, TRT01A <fct>, REGION1 <fct>,
#> #   STRATA1 <fct>, STRATA2 <fct>, BMRKR1 <dbl>, BMRKR2 <fct>, ITTFL <fct>,
#> #   SAFFL <fct>, BMEASIFL <fct>, BEP01FL <fct>, RANDDT <date>, TRTSDTM <dttm>,
#> #   TRTEDTM <dttm>, EOSSTT <fct>, EOTSTT <fct>, EOSDT <date>, EOSDY <int>,
#> #   DCSREAS <fct>, DTHDT <date>, DTHCAUS <fct>, DTHCAT <fct>, LDDTHELD <int>,
#> #   LDDTHGR1 <fct>, LSTALVDT <date>, DTHADY <int>, study_duration_secs <dbl>
as_cdisc(
  dataset(
    "ADAE",
    synthetic_cdisc_data("latest")$adae,
    keys = get_cdisc_keys("ADAE"),
    code = "ADAE <- synthetic_cdisc_data(\"latest\")$adae"
  ),
  parent = "ADSL"
)
#> A CDISCTealDataset object containing the following data.frame (1934 rows and 74 columns):
#>   STUDYID              USUBJID SUBJID SITEID AGE  AGEU SEX  RACE
#> 1 AB12345 AB12345-BRA-1-id-134 id-134  BRA-1  47 YEARS   M WHITE
#> 2 AB12345 AB12345-BRA-1-id-134 id-134  BRA-1  47 YEARS   M WHITE
#> 3 AB12345 AB12345-BRA-1-id-134 id-134  BRA-1  47 YEARS   M WHITE
#> 4 AB12345 AB12345-BRA-1-id-134 id-134  BRA-1  47 YEARS   M WHITE
#> 5 AB12345 AB12345-BRA-1-id-141 id-141  BRA-1  35 YEARS   F WHITE
#> 6 AB12345 AB12345-BRA-1-id-141 id-141  BRA-1  35 YEARS   F WHITE
#>                   ETHNIC COUNTRY DTHFL        INVID        INVNAM
#> 1 NOT HISPANIC OR LATINO     BRA     N INV ID BRA-1 Dr. BRA-1 Doe
#> 2 NOT HISPANIC OR LATINO     BRA     N INV ID BRA-1 Dr. BRA-1 Doe
#> 3 NOT HISPANIC OR LATINO     BRA     N INV ID BRA-1 Dr. BRA-1 Doe
#> 4 NOT HISPANIC OR LATINO     BRA     N INV ID BRA-1 Dr. BRA-1 Doe
#> 5 NOT HISPANIC OR LATINO     BRA     N INV ID BRA-1 Dr. BRA-1 Doe
#> 6 NOT HISPANIC OR LATINO     BRA     N INV ID BRA-1 Dr. BRA-1 Doe
#>              ARM ARMCD         ACTARM ACTARMCD         TRT01P         TRT01A
#> 1      A: Drug X ARM A      A: Drug X    ARM A      A: Drug X      A: Drug X
#> 2      A: Drug X ARM A      A: Drug X    ARM A      A: Drug X      A: Drug X
#> 3      A: Drug X ARM A      A: Drug X    ARM A      A: Drug X      A: Drug X
#> 4      A: Drug X ARM A      A: Drug X    ARM A      A: Drug X      A: Drug X
#> 5 C: Combination ARM C C: Combination    ARM C C: Combination C: Combination
#> 6 C: Combination ARM C C: Combination    ARM C C: Combination C: Combination
#>         REGION1 STRATA1 STRATA2   BMRKR1 BMRKR2 ITTFL SAFFL BMEASIFL BEP01FL
#> 1 South America       B      S2 6.462991    LOW     Y     Y        Y       N
#> 2 South America       B      S2 6.462991    LOW     Y     Y        Y       N
#> 3 South America       B      S2 6.462991    LOW     Y     Y        Y       N
#> 4 South America       B      S2 6.462991    LOW     Y     Y        Y       N
#> 5 South America       B      S1 7.516076   HIGH     Y     Y        Y       Y
#> 6 South America       B      S1 7.516076   HIGH     Y     Y        Y       Y
#>       RANDDT             TRTSDTM             TRTEDTM    EOSSTT    EOTSTT
#> 1 2020-11-03 2020-11-04 03:50:33 2022-11-04 15:28:57 COMPLETED COMPLETED
#> 2 2020-11-03 2020-11-04 03:50:33 2022-11-04 15:28:57 COMPLETED COMPLETED
#> 3 2020-11-03 2020-11-04 03:50:33 2022-11-04 15:28:57 COMPLETED COMPLETED
#> 4 2020-11-03 2020-11-04 03:50:33 2022-11-04 15:28:57 COMPLETED COMPLETED
#> 5 2020-07-22 2020-07-25 14:10:56 2022-07-26 01:49:20 COMPLETED COMPLETED
#> 6 2020-07-22 2020-07-25 14:10:56 2022-07-26 01:49:20 COMPLETED COMPLETED
#>        EOSDT EOSDY DCSREAS DTHDT DTHCAUS DTHCAT LDDTHELD LDDTHGR1   LSTALVDT
#> 1 2022-11-04   731    <NA>  <NA>    <NA>   <NA>       NA     <NA> 2022-11-15
#> 2 2022-11-04   731    <NA>  <NA>    <NA>   <NA>       NA     <NA> 2022-11-15
#> 3 2022-11-04   731    <NA>  <NA>    <NA>   <NA>       NA     <NA> 2022-11-15
#> 4 2022-11-04   731    <NA>  <NA>    <NA>   <NA>       NA     <NA> 2022-11-15
#> 5 2022-07-26   731    <NA>  <NA>    <NA>   <NA>       NA     <NA> 2022-08-10
#> 6 2022-07-26   731    <NA>  <NA>    <NA>   <NA>       NA     <NA> 2022-08-10
#>   DTHADY study_duration_secs ASEQ AESEQ        AETERM         AELLT
#> 1     NA            63113904    1     1 trm B.2.1.2.1 llt B.2.1.2.1
#> 2     NA            63113904    2     2 trm D.1.1.4.2 llt D.1.1.4.2
#> 3     NA            63113904    3     3 trm A.1.1.1.2 llt A.1.1.1.2
#> 4     NA            63113904    4     4 trm A.1.1.1.2 llt A.1.1.1.2
#> 5     NA            63113904    1     1 trm B.2.1.2.1 llt B.2.1.2.1
#> 6     NA            63113904    2     2 trm D.2.1.5.3 llt D.2.1.5.3
#>         AEDECOD       AEHLT     AEHLGT AEBODSYS AESOC    AESEV AESER
#> 1 dcd B.2.1.2.1 hlt B.2.1.2 hlgt B.2.1   cl B.2  cl B MODERATE     N
#> 2 dcd D.1.1.4.2 hlt D.1.1.4 hlgt D.1.1   cl D.1  cl D MODERATE     N
#> 3 dcd A.1.1.1.2 hlt A.1.1.1 hlgt A.1.1   cl A.1  cl A MODERATE     Y
#> 4 dcd A.1.1.1.2 hlt A.1.1.1 hlgt A.1.1   cl A.1  cl A MODERATE     Y
#> 5 dcd B.2.1.2.1 hlt B.2.1.2 hlgt B.2.1   cl B.2  cl B MODERATE     N
#> 6 dcd D.2.1.5.3 hlt D.2.1.5 hlgt D.2.1   cl D.2  cl D     MILD     N
#>              AEACN AEREL                            AEOUT AESDTH TRTEMFL
#> 1 DOSE NOT CHANGED     N               RECOVERED/RESOLVED      N       Y
#> 2 DOSE NOT CHANGED     N             RECOVERING/RESOLVING      N       Y
#> 3 DOSE NOT CHANGED     N RECOVERED/RESOLVED WITH SEQUELAE      N       Y
#> 4 DOSE NOT CHANGED     N             RECOVERING/RESOLVING      N       Y
#> 5   DOSE INCREASED     N               RECOVERED/RESOLVED      N       Y
#> 6          UNKNOWN     Y       NOT RECOVERED/NOT RESOLVED      N       Y
#>   AECONTRT     ASTDTM     AENDTM ASTDY AENDY AETOXGR SMQ01NAM SMQ02NAM SMQ01SC
#> 1        N 2021-07-13 2022-04-05   251   517       3     <NA>     <NA>    <NA>
#> 2        N 2021-09-04 2022-05-16   304   558       3     <NA>     <NA>    <NA>
#> 3        Y 2022-03-15 2022-10-29   496   724       2     <NA>     <NA>    <NA>
#> 4        N 2022-07-05 2022-09-08   608   673       2     <NA>     <NA>    <NA>
#> 5        N 2021-04-10 2021-04-17   259   266       3     <NA>     <NA>    <NA>
#> 6        Y 2021-05-24 2022-07-18   303   723       1     <NA>     <NA>    <NA>
#>   SMQ02SC                  CQ01NAM ANL01FL            AERELNST
#> 1    <NA>                     <NA>       Y               OTHER
#> 2    <NA>                     <NA>       Y DISEASE UNDER STUDY
#> 3    <NA>                     <NA>       Y DISEASE UNDER STUDY
#> 4    <NA>                     <NA>       Y DISEASE UNDER STUDY
#> 5    <NA>                     <NA>       Y                NONE
#> 6    <NA> D.2.1.5.3/A.1.1.1.1 AESI       Y DISEASE UNDER STUDY
#>                          AEACNOTH
#> 1               PROCEDURE/SURGERY
#> 2                      MEDICATION
#> 3                            NONE
#> 4 SUBJECT DISCONTINUED FROM STUDY
#> 5               PROCEDURE/SURGERY
#> 6               PROCEDURE/SURGERY
#> 
#> ...
#> # A tibble: 6 × 74
#>   STUDYID USUBJID     SUBJID SITEID   AGE AGEU  SEX   RACE  ETHNIC COUNTRY DTHFL
#>   <chr>   <chr>       <chr>  <chr>  <int> <fct> <fct> <fct> <fct>  <fct>   <fct>
#> 1 AB12345 AB12345-US… id-206 USA-8     34 YEARS F     ASIAN NOT H… USA     N    
#> 2 AB12345 AB12345-US… id-206 USA-8     34 YEARS F     ASIAN NOT H… USA     N    
#> 3 AB12345 AB12345-US… id-206 USA-8     34 YEARS F     ASIAN NOT H… USA     N    
#> 4 AB12345 AB12345-US… id-130 USA-9     40 YEARS M     ASIAN NOT H… USA     N    
#> 5 AB12345 AB12345-US… id-130 USA-9     40 YEARS M     ASIAN NOT H… USA     N    
#> 6 AB12345 AB12345-US… id-130 USA-9     40 YEARS M     ASIAN NOT H… USA     N    
#> # … with 63 more variables: INVID <chr>, INVNAM <chr>, ARM <fct>, ARMCD <fct>,
#> #   ACTARM <fct>, ACTARMCD <fct>, TRT01P <fct>, TRT01A <fct>, REGION1 <fct>,
#> #   STRATA1 <fct>, STRATA2 <fct>, BMRKR1 <dbl>, BMRKR2 <fct>, ITTFL <fct>,
#> #   SAFFL <fct>, BMEASIFL <fct>, BEP01FL <fct>, RANDDT <date>, TRTSDTM <dttm>,
#> #   TRTEDTM <dttm>, EOSSTT <fct>, EOTSTT <fct>, EOSDT <date>, EOSDY <int>,
#> #   DCSREAS <fct>, DTHDT <date>, DTHCAUS <fct>, DTHCAT <fct>, LDDTHELD <int>,
#> #   LDDTHGR1 <fct>, LSTALVDT <date>, DTHADY <int>, study_duration_secs <dbl>, …
# TealDatasetConnector --------

library(scda)
pull_fun_adsl <- callable_function(
  function() {
    synthetic_cdisc_data("latest")$adsl
  }
)
as_cdisc(
  dataset_connector(
    "ADSL",
    pull_fun_adsl,
    keys = get_cdisc_keys("ADSL")
  )
)
#> A CDISCTealDatasetConnector object, named ADSL, containing a TealDataset object that has not been loaded/pulled

pull_fun_adae <- callable_function(
  function() {
    synthetic_cdisc_data("latest")$adae
  }
)
as_cdisc(
  dataset_connector(
    "ADAE",
    pull_fun_adae,
    keys = get_cdisc_keys("ADAE")
  ),
  parent = "ADSL"
)
#> A CDISCTealDatasetConnector object, named ADAE, containing a TealDataset object that has not been loaded/pulled