tests/testthat/tests-archive/test_make-oncoprint.R

In AxelitoMartin/gnomeR: Wrangle and analyze IMPACT and TCGA mutation data

# context("check make oncoprint")
#
#
# test_that("make data genetics only",{
#
#   set.seed(123)
#   samples <- as.character(unique(mut$Tumor_Sample_Barcode))[1:200]
#   bin.mut <- binmat(samples = samples,maf = mut, fusion = fusion,
#                     cna = cna, mut_type = "somatic_only",
#                     snp_only = FALSE,include_silent = FALSE, specify_panel = FALSE)
#   gen_dat <- bin.mut[,
#                      c("TP53","CDKN2A","CDKN2A.Del","PIK3CA")]
#   gen_dat$TP53 <- rbinom(nrow(gen_dat),1,1/2)
#   gen_dat$CDKN2A.Del <- rbinom(nrow(gen_dat),1,1/2)
#   out <- plot_oncoprint(gen_dat)
#   expect_true(typeof(out) == "S4")
#   out <- plot_oncoprint(gen_dat,ordered_samples = 1:nrow(gen_dat))
#   expect_true(typeof(out) == "S4")
#
# })
#
# test_that("make data with clinical",{
#
#   set.seed(123)
#   samples <- as.character(unique(mut$Tumor_Sample_Barcode))[1:200]
#   bin.mut <- binmat(samples = samples,maf = mut, fusion = fusion,
#                     cna = cna, mut_type = "somatic_only",
#                     snp_only = FALSE,include_silent = FALSE, specify_panel = FALSE)
#   gen_dat <- bin.mut[,
#                      c("TP53","CDKN2A","CDKN2A.Del","PIK3CA")]
#   gen_dat$TP53 <- rbinom(nrow(gen_dat),1,1/2)
#   gen_dat$CDKN2A.Del <- rbinom(nrow(gen_dat),1,1/2)
#   clin.patients.dat <-
#     clin.patients[match(abbreviate(rownames(gen_dat),
#                                    strict = TRUE, minlength = 9),
#                         clin.patients$X.Patient.Identifier),] %>%
#     dplyr::rename(DMPID = X.Patient.Identifier,
#                   Smoker = Smoking.History) %>%
#     dplyr::select(DMPID, Sex,Smoker) %>%
#     dplyr::filter(!is.na(DMPID)) %>%
#     dplyr::distinct(DMPID,.keep_all = TRUE) %>%
#     dplyr::mutate(Smoker = ifelse(Smoker == "Unknown",NA, as.character(Smoker)))
#   clin.patients.dat$ContFeature <- rnorm(n = nrow(clin.patients.dat))
#   gen_dat <- gen_dat[match(clin.patients.dat$DMPID,
#                            abbreviate(rownames(gen_dat),strict = TRUE, minlength = 9)),]
#   clin.patients.dat <- clin.patients.dat %>%
#     tibble::column_to_rownames('DMPID')
#   rownames(gen_dat) <- rownames(clin.patients.dat)
#   out <- plot_oncoprint(gen_dat,clin.patients.dat,ordered_samples = 1:nrow(gen_dat))
#   expect_true(typeof(out) == "S4")
#
# })
#
#
# test_that("make data single clinical",{
#
#   set.seed(123)
#   samples <- as.character(unique(mut$Tumor_Sample_Barcode))[1:200]
#   bin.mut <- binmat(samples = samples,maf = mut, fusion = fusion,
#                     cna = cna, mut_type = "somatic_only",
#                     snp_only = FALSE,include_silent = FALSE, specify_panel = FALSE)
#   gen_dat <- bin.mut[,
#                      c("TP53","CDKN2A","CDKN2A.Del","PIK3CA")]
#   gen_dat$TP53 <- rbinom(nrow(gen_dat),1,1/2)
#   gen_dat$CDKN2A.Del <- rbinom(nrow(gen_dat),1,1/2)
#   clin.patients.dat <-
#     clin.patients[match(abbreviate(rownames(gen_dat),
#                                    strict = TRUE, minlength = 9),
#                         clin.patients$X.Patient.Identifier),] %>%
#     dplyr::rename(DMPID = X.Patient.Identifier,
#                   Smoker = Smoking.History) %>%
#     dplyr::select(DMPID, Sex,Smoker) %>%
#     dplyr::filter(!is.na(DMPID)) %>%
#     dplyr::distinct(DMPID,.keep_all = TRUE) %>%
#     dplyr::mutate(Smoker = ifelse(Smoker == "Unknown",NA, as.character(Smoker))) %>%
#     dplyr::select(Sex,DMPID)
#   clin.patients.dat$ContFeature <- rnorm(n = nrow(clin.patients.dat))
#   clin.patients.dat <- clin.patients.dat %>%
#     dplyr::select(ContFeature,DMPID)
#   gen_dat <- gen_dat[match(clin.patients.dat$DMPID,
#                            abbreviate(rownames(gen_dat),strict = TRUE, minlength = 9)),]
#   clin.patients.dat <- clin.patients.dat %>%
#     tibble::column_to_rownames('DMPID')
#   rownames(gen_dat) <- rownames(clin.patients.dat)
#   out <- plot_oncoprint(gen_dat,clin_dat = clin.patients.dat)
#   expect_true(typeof(out) == "S4")
#
# })
#
#
# test_that("make data with cna non binary",{
#
#   set.seed(123)
#   samples <- as.character(unique(mut$Tumor_Sample_Barcode))[1:200]
#   bin.mut <- binmat(samples = samples,maf = mut,cna = cna, cna.binary = FALSE,
#                     mut_type = "somatic_only",
#                     snp_only = FALSE,include_silent = FALSE, specify_panel = FALSE)
#   keep <- c("TP53|PIK3CA|ALK")
#   gen_dat <- bin.mut[,grep(keep,colnames(bin.mut))]
#   expect_warning(out <- plot_oncoprint(gen_dat))
#   expect_true(typeof(out) == "S4")
#
# })
#