Skip on CRAN

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
-Version: 0.1.4
-Date: 2024-09-21 02:20:31 UTC
-SHA: 7ac75af986b82b17e4403a0727895e5d45e1852f
+Version: 0.1.5
+Date: 2024-10-31 14:57:21 UTC
+SHA: 29222641f45845efa37085c34f29cbb932558aec

cran-comments.md

@@ -1 +1,18 @@
-- Fixed to only depend on `rxode2` instead of `rxode2parse`
+# babelmixr2 0.1.5
+
+* Fix bug where `PopED` could error with certain `dvid` values
+
+* Fix bug where if/else clauses in the model could cause the model to
+  not predict the values correctly.
+
+* Fix bug so that `shrinkage()` calculation works
+
+* Fix bug so that you can mix 2 different `PopED` data bases in an
+  analysis without crashing R.  While this didn't occur with every
+  database clash, it more frequently occurred when you interleaved
+  `PopED` code between two different `PopED` databases, like in issue
+  #131.
+
+* Added a new function `babelBpopIdx(poped.db, "par")` which will get
+  the poped index for a model generated from `babelmixr2`, which is
+  useful when calculating the power (as in example 11).

tests/testthat/test-convert.R

@@ -1,5 +1,5 @@
 test_that("nonmem amt=0 evid=1 conversion test", {
-
+  skip_on_cran()
   one.compartment <- function() {
     ini({
       tka <- 0.45 # Log Ka
@@ -32,6 +32,7 @@ test_that("nonmem amt=0 evid=1 conversion test", {
 
 
 test_that("pknca conversion keeps extra columns", {
+  skip_on_cran()
   one.compartment <- function() {
     ini({
       tka <- 0.45 # Log Ka
@@ -211,6 +212,7 @@ test_that("pknca conversion keeps extra columns", {
 })
 
 test_that("getStandardColNames", {
+  skip_on_cran()
   expect_equal(
     getStandardColNames(data.frame(ID=1, DV=2, Time=3, CmT=4)),
     c(id = "ID", time = "Time", amt = NA, rate = NA, dur = NA, evid = NA,
@@ -224,9 +226,9 @@ test_that("getStandardColNames", {
 })
 
 test_that("invalid nonmem conversion", {
-
+  skip_on_cran()
   skip_if_not(file.exists("bad-nonmem-data-convert.qs"))
-  
+
   d <- qs::qread("bad-nonmem-data-convert.qs")
 
   f <-
@@ -285,5 +287,5 @@ test_that("invalid nonmem conversion", {
   d$tevent <- 0.5
 
   expect_error(bblDatToNonmem(f, d), NA)
-  
+
 })

tests/testthat/test-poped.R

@@ -1,4 +1,5 @@
-if (requireNamespace("PopED", quietly=TRUE)) {
+if (requireNamespace("PopED", quietly=TRUE) &&
+    identical(Sys.getenv("NOT_CRAN"), "true")) {
 
   pheno <- function() {
     ini({