tests/testthat/test_shiftCountsOne.R

In Nanostring-Biostats/GeomxTools: NanoString GeoMx Tools

# devtools::install_github("https://github.com/Nanostring-Biostats/GeomxTools/", ref="dev", force = TRUE, dependencies = FALSE)

library(GeomxTools)
library(testthat)


datadir <- system.file("extdata", "DSP_NGS_Example_Data",
                       package="GeomxTools")
DCCFiles <- dir(datadir, pattern=".dcc$", full.names=TRUE)

testData <- readRDS(file= system.file("extdata", "DSP_NGS_Example_Data", 
                                      "demoData.rds", package = "GeomxTools"))


DCCFiles <- DCCFiles[!basename(DCCFiles) %in% unique(sData(testData)$NTC_ID)]
testData2 <- shiftCountsOne(testData, elt="exprs", useDALogic=TRUE) 
testData3 <- shiftCountsOne(testData, elt = "exprs", useDALogic = FALSE)

# Spec 1: test that the counts from shiftCountsOne(..., useDALogic = TRUE) are correct:------

fakeData = testData
testthat::test_that("test that the counts from shiftCountsOne(..., useDALogic = TRUE) are correct", {
  counts_0_add_1 = apply(exprs(fakeData), 1:2, function(x) ifelse(x==0, x+1, x))
  expect_true(identical(counts_0_add_1, exprs(testData2)))
})

# Spec 2: test that the counts from shiftCountsOne(..., useDALogic = FALSE) are correct:------
testthat::test_that("test that the counts from shiftCountsOne(..., useDALogic = FALSE) are correct", {
  counts_all_add_1 = apply(exprs(testData), 1:2, function(x) x+1)
  expect_true(identical(counts_all_add_1, exprs(testData3)))
})

# Spec 2: tests that countsShiftedByOne returns true when counts have been shifted:------
testthat::test_that("tests that countsShiftedByOne returns correct value", {
  expect_false(countsShiftedByOne(testData))
  expect_true(countsShiftedByOne(testData2))
  expect_true(countsShiftedByOne(testData3))
})