tests/testthat/test-rxsolve.R

In monolix2rx: Converts 'Monolix' Models to 'rxode2'

.monolix2rx <- function(..., save=FALSE) {
  suppressWarnings(suppressMessages(monolix2rx(...)))
}

.rxSolve <-  function(...) {
  suppressMessages(suppressWarnings(rxSolve(...)))
}

test_that("solving makes sense", {
  skip_on_cran()

  f <- .monolix2rx(system.file("theo/theophylline_project.mlxtran", package="monolix2rx"))

  s <- .rxSolve(f)
  expect_true(inherits(s, "rxSolve"))

  expect_equal(s$env$.args$covsInterpolation, 1L)

  s <- .rxSolve(f, nStud=1)

  expect_equal(s$env$.args$dfObs, 120)
  expect_equal(s$env$.args$dfSub, 12)

  expect_equal(s$env$.args$thetaMat, f$thetaMat)
  expect_equal(s$env$.args$omega, f$omega)

  for (v in names(f$theta)) {
    expect_true(all(s$params[[v]] == f$theta[v]))
  }

})