tests

NMautoverse · Oct 31, 2024 · 5d5df55 · 5d5df55
1 parent 7a2394e
commit 5d5df55
Show file tree

Hide file tree

Showing 9 changed files with 39 additions and 1 deletion.
diff --git a/R/cleanSpaces.R b/R/cleanSpaces.R
@@ -6,6 +6,7 @@
 ##'     is TRUE.
 ##' @param trail Drop spaces after last non-empty character. Default
 ##'     is TRUE.
+##' @return A vector of class character
 ##' @keywords internal
 ##' 
 cleanSpaces <- function(x,double=TRUE,lead=TRUE,trail=TRUE){

diff --git a/man/cleanSpaces.Rd b/man/cleanSpaces.Rd
diff --git a/tests/testthat/testReference/NMdataConf_03.rds b/tests/testthat/testReference/NMdataConf_03.rds
diff --git a/tests/testthat/testReference/dt2mat_1.rds b/tests/testthat/testReference/dt2mat_1.rds
diff --git a/tests/testthat/testReference/mat2dt_1.rds b/tests/testthat/testReference/mat2dt_1.rds
diff --git a/tests/testthat/test_dt2mat.R b/tests/testthat/test_dt2mat.R
@@ -0,0 +1,20 @@
+
+context("dt2mat")
+
+test_that("basic",{
+    fileRef <- "testReference/dt2mat_1.rds"
+
+    ext <- NMreadExt("testData/nonmem/xgxr021.mod",as.fun="data.table")
+
+    omegas <- ext[par.type=="OMEGA"]
+
+    res <- dt2mat(omegas)
+
+    omegas[i==j,.(i,j,value)]
+    omegas[i!=j,.(i,j,value)]
+    res
+
+    expect_equal_to_reference(res,fileRef)
+
+})
+
diff --git a/tests/testthat/test_mat2dt.R b/tests/testthat/test_mat2dt.R
@@ -0,0 +1,14 @@
+
+context("mat2dt")
+
+test_that("basic",{
+    fileRef <- "testReference/mat2dt_1.rds"
+
+    cov <- NMreadCov("testData/nonmem/xgxr032.cov")
+
+    res <- mat2dt(cov)
+
+
+    expect_equal_to_reference(res,fileRef)
+
+})
diff --git a/vignettes/derived/pkdata.rds b/vignettes/derived/pkdata.rds
diff --git a/vignettes/derived/pkdata_meta.txt b/vignettes/derived/pkdata_meta.txt
@@ -1,5 +1,5 @@
 "parameter","value"
 "DataCreateScript","NMdata-cheat.Rmd"
-"CreationTime","2024-10-30 16:27:39 EDT"
+"CreationTime","2024-10-30 22:22:21 EDT"
 "writtenTo","derived/pkdata.rds derived/pkdata.csv"
 "Description","PK data for the NMdata Cheatsheet"