## 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.