data-raw/GDSC/GDSC_sampleMetadata.R

## code to prepare `gdsc_sampleMetadata` dataset goes here
filePath <- system.file("extdata/GDSC", "Cell_Lines_Details.xlsx", package = "AnnotationGx")
rawdata <- readxl::read_excel(filePath, sheet = 1, col_names = TRUE, na = "NA") |> data.table::as.data.table()

GDSC_sampleMetadata <-
  rawdata[`Sample Name` != "TOTAL:", .(GDSC.Sample_Name = `Sample Name`, GDSC.COSMIC_ID = `COSMIC identifier`)]

usethis::use_data(GDSC_sampleMetadata, overwrite = TRUE)
bhklab/AnnotationGx documentation built on April 3, 2025, 4:27 p.m.