filePath <- system.file("extdata/CTRP", "CTRPv2_meta_per_cell_line.txt", package = "AnnotationGx")
rawdata <- data.table::fread(filePath, check.names = T)
CTRP_sampleMetadata <- rawdata[, c("master_ccl_id", "ccl_name")]
usethis::use_data(CTRP_sampleMetadata, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.