## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE---------------------------------------------------------------
#  Sys.setenv(GDR_CELLLINE_ANNOTATION = "some/path/to/cell_line_annotation.csv")
#  Sys.setenv(GDR_DRUG_ANNOTATION = "some/path/to/drug_annotation.csv")

## ----eval=FALSE---------------------------------------------------------------
#  Sys.setenv(GDR_CELLLINE_ANNOTATION = "")
#  Sys.setenv(GDR_DRUG_ANNOTATION = "")

## ----eval=FALSE---------------------------------------------------------------
#  # Example of creating a data.table with required fields for drug annotation
#  drug_annotation <- data.table(
#    gnumber = c("G1", "G2", "G3"),
#    drug_name = c("Drug A", "Drug B", "Drug C"),
#    drug_moa = c("MOA A", "MOA B", "MOA C")
#  )
#  
#  # Example of creating a data.table with required fields for cell line annotation
#  cell_line_annotation <- data.table(
#    cell_line_identifier = c("Cell_Line_1", "Cell_Line_2", "Cell_Line_3"),
#    cell_line_name = c("Cell Line 1", "Cell Line 2", "Cell Line 3"),
#    primary_tissue = c("Tissue A", "Tissue B", "Tissue C"),
#    doubling_time = c(24, 30, 28),
#    parental_identifier = c("Parental 1", "Parental 2", "Parental 3"),
#    subtype = NA
#  )

## ----sessionInfo--------------------------------------------------------------
sessionInfo()