tests/testthat/test-zzzz-rxUse.R

In RxODE: Facilities for Simulating from ODE-Based Models

rxodeTest(
  {
    if (requireNamespace("units", quietly = TRUE) &
      requireNamespace("devtools", quietly = TRUE)) {
      test_that("build package", {
        mod <- RxODE({
          a <- 6
          b <- 0.6
          d / dt(intestine) <- -a * intestine
          d / dt(blood) <- a * intestine - b * blood
        })

        obs <- units::set_units(seq(0, 10, by = 1 / 24), "days")

        et <- eventTable(time.units = "days")
        et$add.sampling(obs)
        et$add.dosing(
          dose = 2 / 24, start.time = 0,
          nbr.doses = 10, dosing.interval = 1
        )

        solve1 <- rxSolve(mod, et, returnType = "data.frame")

        mod2 <- mod
        dir <- tempdir()

        expect_error(rxPkg(mod, mod2, package = "rxm", wd = dir), NA)
        ## unlink(dir, recursive=TRUE)

        # when load_all is used, you get
        ## Error: package ‘RxODE’ required by ‘rxm’ could not be found
        ## rm(list=c("mod", "mod2"))

        ## expect_error(library(rxm), NA)

        ## expect_error(mod, NA)
        ## expect_error(mod2, NA)

        ## expect_true(inherits(mod, "RxODE"))

        ## expect_true(inherits(mod2, "RxODE"))

        ## solve2 <- rxSolve(mod, et, returnType = "data.frame")

        ## expect_equal(solve1, solve2)

        ## detach("package:rxm", unload=TRUE)

        remove.packages("rxm")

        ## expect_error(mod)
        ## expect_error(mod2)
      })
    }
  },
  test = "rxuse"
)