tests/testthat/test_TransRownames.ID.PCAWG.SigPro.R

In ICAMS: In-Depth Characterization and Analysis of Mutational Signatures ('ICAMS')

unlink("Rplots.pdf")
test_that("Check sigprofiler-formatted indel catalog rownames",
          { 
            spIDCat <- read.csv("testdata/sigProfiler_ID_signatures.csv",
                            row.names = 1, 
                            stringsAsFactors = FALSE)
            expect_equal(catalog.row.headers.sp$ID83,rownames(spIDCat))
            unlink("Rplots.pdf")
          })



test_that("TransRownames.ID.PCAWG.SigPro function", 
          {
            inputRownames <- ICAMS::catalog.row.order$ID
            outputRownames <- TransRownames.ID.PCAWG.SigPro(inputRownames)
            expect_true(setequal(outputRownames,catalog.row.headers.sp$ID83))
          })


test_that("TransRownames.ID.SigPro.PCAWG function", 
          {
            inputRownames <- catalog.row.headers.sp$ID83
            outputRownames <- TransRownames.ID.SigPro.PCAWG(inputRownames)
            expect_true(setequal(outputRownames,ICAMS::catalog.row.order$ID))
          })