filePath <- system.file("extdata/gCSI", "gCSI_sampleMap.txt", package = "AnnotationGx")
rawdata <- data.table::fread(filePath, check.names=T)
gCSI_sampleMetadata <- rawdata[,c("Characteristics.cell.line.", "Comment.ENA_SAMPLE.")]
usethis::use_data(gCSI_sampleMetadata, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.