# Converting PharmacoSet Drug Response Data into gDR object

#### Jermiah Joseph

jermiah.joseph@uhn.ca

#### Bartosz Czech

bartosz.w.czech@gmail.com

    library(PharmacoGx)
    library(gDRimport)

# Overview

The `gDRimport` package is a part of the gDR suite. It helps to prepare raw drug response data for downstream processing. It mainly contains helper functions for importing/loading/validating dose response data provided from different scanner sources. In collaboration with the BHKLab, `gDRimport` also provides functions that can convert a `PharmacoGx::PharamcoSet` object into a gDR object. With this functionality, users familiar with the gDR suite of packages and methods can utilize the publically available, curated datasets from the PharmacoGx database. The main step in this process is to extract the drug dose-response data from the PharmacoSets and transform them into a `data.table` that can be used as input for the `gDRcore::runDrugResponseProcessingPipeline`.

# Loading a PharmacoSet (PSet)

Whereas a user might already have a pharmacoset loaded in their R session, if they wish to obtain a different pharmacoset or use the same script in the future we provide a helper function to do so. It helps to have a user directory in which to store all pharmacosets, and by passing this directory into the function as a parameter, the function will also check to see if the PSet exists in the user-defined directory. This is to ensure that the PSet is not being re-downloaded if it already has.

    pset <- getPSet("Tavor_2020")
    pset

# Converting PharmacoSet to data.table for gDR pipeline

`PharamcoSets` hold data pertaining to the cell lines (@sample slot), drugs (@treatment slot), and dose response experiments (@treatmentResponse slot). The dose response data is stored in a `treatmentResponseExperiment` object and the function `gDRimport::convert_pset_to_df` extracts this information to build a `data.table` that can be used as input to the gDR pipeline.

    # Store treatment response data in df_
    dt <- convert_pset_to_df(pharmacoset = pset)
    str(dt)
    #> Classes 'data.table' and 'data.frame':   34516 obs. of  7 variables:
    #>  $ Barcode              : chr  "PCM-0103090_1_130695_2018-08-28" "PCM-0103090_1_130695_2018-08-28" "PCM-0103090_1_130695_2018-08-28" "PCM-0103090_1_130695_2018-08-28" ...
    #>  $ ReadoutValue         : num  75.7 63.1 75.9 87.2 78.8 ...
    #>  $ Concentration        : num  0.0021 0.0052 0.01 0.0299 0.0798 ...
    #>  $ Clid                 : chr  "130695" "130695" "130695" "130695" ...
    #>  $ DrugName             : chr  "Ivosidenib" "Ivosidenib" "Ivosidenib" "Ivosidenib" ...
    #>  $ Duration             : num  48 48 48 48 48 48 48 48 48 48 ...
    #>  $ ReferenceDivisionTime: logi  NA NA NA NA NA NA ...
    #>  - attr(*, ".internal.selfref")=<externalptr>

# Subsetting to extract relevant information

Most canonical `PharmacoSets` have data pertaining to many cell lines and their response to many drugs (drug-combination data is available in some but its conversion to gDR is not currently supported). As such, in the interest of time and resources, it may be useful to subset the data before providing it as input for the gDR pipeline.

    # example subset using only 1 cell line
    subset_cl <- dt$Clid[1]
    x <- dt[Clid == subset_cl]
    x
    #>                              Barcode ReadoutValue Concentration   Clid
    #>   1: PCM-0103090_1_130695_2018-08-28       75.733        0.0021 130695
    #>   2: PCM-0103090_1_130695_2018-08-28       63.094        0.0052 130695
    #>   3: PCM-0103090_1_130695_2018-08-28       75.935        0.0100 130695
    #>   4: PCM-0103090_1_130695_2018-08-28       87.159        0.0299 130695
    #>   5: PCM-0103090_1_130695_2018-08-28       78.766        0.0798 130695
    #>  ---
    #> 589: PCM-0064526_5_130695_2018-08-28       71.707        1.4960 130695
    #> 590: PCM-0064526_5_130695_2018-08-28       60.488        3.9900 130695
    #> 591: PCM-0064526_5_130695_2018-08-28       25.366        9.9750 130695
    #> 592: PCM-0064526_5_130695_2018-08-28        5.976       24.9400 130695
    #> 593: PCM-0064526_5_130695_2018-08-28      100.000        0.0000 130695
    #>         DrugName Duration ReferenceDivisionTime
    #>   1:  Ivosidenib       48                    NA
    #>   2:  Ivosidenib       48                    NA
    #>   3:  Ivosidenib       48                    NA
    #>   4:  Ivosidenib       48                    NA
    #>   5:  Ivosidenib       48                    NA
    #>  ---
    #> 589: Azacitidine       48                    NA
    #> 590: Azacitidine       48                    NA
    #> 591: Azacitidine       48                    NA
    #> 592: Azacitidine       48                    NA
    #> 593:     vehicle       48                    NA

# Running drug response pipeline with data

The subsetted data can now be used as input for the `gDRcore::runDrugResponseProcessingPipeline()`. The output of this function is a `MultiAssayExperiment` object which can be accessed with `gDRutils::convert_se_assay_to_dt()`

    # RUN DRUG RESPONSE PROCESSING PIPELINE
    se <- gDRcore::runDrugResponseProcessingPipeline(x)
    se

    # Convert Summarized Experiments to data.table
    # Available SEs : "RawTreatred", "Controls", "Normalized", "Averaged", "Metrics"

    str(gDRutils::convert_se_assay_to_dt(se[[1]], "Averaged"))
    str(gDRutils::convert_se_assay_to_dt(se[[1]], "Metrics"))

# SessionInfo

    sessionInfo()
    #> R version 4.3.1 (2023-06-16)
    #> Platform: x86_64-pc-linux-gnu (64-bit)
    #> Running under: Ubuntu 22.04.3 LTS
    #>
    #> Matrix products: default
    #> BLAS:   /home/biocbuild/bbs-3.18-bioc/R/lib/libRblas.so
    #> LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.10.0
    #>
    #> locale:
    #>  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C
    #>  [3] LC_TIME=en_GB              LC_COLLATE=C
    #>  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8
    #>  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C
    #>  [9] LC_ADDRESS=C               LC_TELEPHONE=C
    #> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
    #>
    #> time zone: America/New_York
    #> tzcode source: system (glibc)
    #>
    #> attached base packages:
    #> [1] stats4    stats     graphics  grDevices utils     datasets  methods
    #> [8] base
    #>
    #> other attached packages:
    #>  [1] MultiAssayExperiment_1.28.0 gDRimport_1.0.0
    #>  [3] PharmacoGx_3.6.0            CoreGx_2.6.0
    #>  [5] SummarizedExperiment_1.32.0 Biobase_2.62.0
    #>  [7] GenomicRanges_1.54.0        GenomeInfoDb_1.38.0
    #>  [9] IRanges_2.36.0              S4Vectors_0.40.0
    #> [11] MatrixGenerics_1.14.0       matrixStats_1.0.0
    #> [13] BiocGenerics_0.48.0
    #>
    #> loaded via a namespace (and not attached):
    #>   [1] bitops_1.0-7            testthat_3.2.0          rlang_1.1.1
    #>   [4] magrittr_2.0.3          shinydashboard_0.7.2    compiler_4.3.1
    #>   [7] reshape2_1.4.4          maps_3.4.1              vctrs_0.6.4
    #>  [10] relations_0.6-13        stringr_1.5.0           pkgconfig_2.0.3
    #>  [13] crayon_1.5.2            fastmap_1.1.1           backports_1.4.1
    #>  [16] XVector_0.42.0          ellipsis_0.3.2          caTools_1.18.2
    #>  [19] utf8_1.2.4              promises_1.2.1          rmarkdown_2.25
    #>  [22] pracma_2.4.2            magicaxis_2.2.14        coop_0.6-3
    #>  [25] xfun_0.40               zlibbioc_1.48.0         cachem_1.0.8
    #>  [28] celestial_1.4.6         jsonlite_1.8.7          SnowballC_0.7.1
    #>  [31] later_1.3.1             DelayedArray_0.28.0     BiocParallel_1.36.0
    #>  [34] parallel_4.3.1          sets_1.0-24             cluster_2.1.4
    #>  [37] R6_2.5.1                stringi_1.7.12          bslib_0.5.1
    #>  [40] RColorBrewer_1.1-3      qs_0.25.5               limma_3.58.0
    #>  [43] pkgload_1.3.3           boot_1.3-28.1           brio_1.1.3
    #>  [46] jquerylib_0.1.4         assertthat_0.2.1        Rcpp_1.0.11
    #>  [49] knitr_1.44              downloader_0.4          httpuv_1.6.12
    #>  [52] Matrix_1.6-1.1          igraph_1.5.1            tidyselect_1.2.0
    #>  [55] abind_1.4-5             yaml_2.3.7              stringfish_0.15.8
    #>  [58] gplots_3.1.3            codetools_0.2-19        plyr_1.8.9
    #>  [61] lattice_0.22-5          tibble_3.2.1            shiny_1.7.5.1
    #>  [64] BumpyMatrix_1.10.0      evaluate_0.22           desc_1.4.2
    #>  [67] RcppParallel_5.1.7      bench_1.1.3             pillar_1.9.0
    #>  [70] lsa_0.73.3              KernSmooth_2.23-22      sm_2.2-5.7.1
    #>  [73] checkmate_2.2.0         DT_0.30                 shinyjs_2.1.0
    #>  [76] piano_2.18.0            generics_0.1.3          rprojroot_2.0.3
    #>  [79] RCurl_1.98-1.12         ggplot2_3.4.4           munsell_0.5.0
    #>  [82] scales_1.2.1            RApiSerialize_0.1.2     gtools_3.9.4
    #>  [85] xtable_1.8-4            marray_1.80.0           glue_1.6.2
    #>  [88] slam_0.1-50             mapproj_1.2.11          tools_4.3.1
    #>  [91] data.table_1.14.8       gDRutils_1.0.0          fgsea_1.28.0
    #>  [94] RANN_2.6.1              visNetwork_2.1.2        fastmatch_1.1-4
    #>  [97] cowplot_1.1.1           grid_4.3.1              plotrix_3.8-2
    #> [100] NISTunits_1.0.1         colorspace_2.1-0        GenomeInfoDbData_1.2.11
    #> [103] cli_3.6.1               fansi_1.0.5             S4Arrays_1.2.0
    #> [106] dplyr_1.1.3             gtable_0.3.4            sass_0.4.7
    #> [109] digest_0.6.33           SparseArray_1.2.0       htmlwidgets_1.6.2
    #> [112] htmltools_0.5.6.1       lifecycle_1.0.3         statmod_1.5.0
    #> [115] mime_0.12               MASS_7.3-60