Set up testthat framework

DESCRIPTION

@@ -2,7 +2,7 @@ Package: NanoStringNorm
 Type: Package
 Title: Normalize NanoString miRNA and mRNA Data
 Version: 3.0.0
-Date: 2025-01-15
+Date: 2025-01-17
 Authors@R: c(
 	person(c("Daryl", "M."), "Waggott", role = "aut"),
 	person("Paul", "Boutros", email = "[email protected]", role = "cre"),
@@ -11,7 +11,10 @@ Depends:
   R (>= 2.14.0)
 Imports:
   methods
-Suggests: googleVis (>= 0.2.14), lme4, RUnit (>= 0.4.26)
+Suggests:
+  testthat,
+  googleVis (>= 0.2.14),
+  lme4
 Description: A set of tools for normalizing, diagnostics and visualization of NanoString nCounter data.
 License: GPL-2
 LazyLoad: yes

NEWS.md

@@ -1,4 +1,4 @@
-# NanoStringNorm 3.0.0 (2025-01-15)
+# NanoStringNorm 3.0.0 (2025-01-17)
 
 ## Removed
 * Removed Excel `.xls` support due to broken CRAN dependency
@@ -8,6 +8,7 @@
 
 ## Changed
 * Update changelog to Markdown format
+* Replaced RUnit framework with testthat
 
 
 # NanoStringNorm 2.0.0 (2023-03-21)

R/read.csv.RCC.R

@@ -64,6 +64,7 @@ read.csv.RCC <- function(path, sample.id.row = 'File.Name') {
 
     colnames(rcc$x) <- gsub(' ', '.', colnames(rcc$x));
     colnames(rcc$x) <- c(colnames(rcc$x)[1:3], sample.ids);
+    rcc$x[, sample.ids] <- lapply(rcc$x[, sample.ids], as.numeric);
 
     cat(paste('There were', length(sample.ids), 'samples imported. \nNote that spaces in sample names will be replaced by dots. \n'));
 

tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat);
+library(NanoStringNorm);
+
+test_check('NanoStringNorm');

tests/testthat/test-load.rcc.R

@@ -0,0 +1,29 @@
+test_that(
+    'read.csv.RCC header loads correctly', {
+        load('data/load.rcc.Rda');
+
+        path <- system.file(
+            'extdata',
+            'RCC_files',
+            'RCCCollector1_rat_tcdd.csv',
+            package = 'NanoStringNorm'
+            );
+        result <- read.csv.RCC(path);
+        expect_equivalent(result$header, csv.nanostring.mrna.result$header);
+        }
+    );
+
+test_that(
+    'read.csv.RCC counts load correctly', {
+        load('data/load.rcc.Rda');
+
+        path <- system.file(
+            'extdata',
+            'RCC_files',
+            'RCCCollector1_rat_tcdd.csv',
+            package = 'NanoStringNorm'
+        );
+        result <- read.csv.RCC(path);
+        expect_equivalent(result$x, csv.nanostring.mrna.result$x, );
+    }
+);