tests/testthat/test-quantity-pk-parameter.R

In Open-Systems-Pharmacology/OSPSuite-R: R package to manipulate OSPSuite Models

# QuantityPKParameter

sim <- loadTestSimulation("S1")
clearOutputs(sim)
outputs <- "Organism|VenousBlood|*|Caffeine"
addOutputs(outputs, sim)
results <- runSimulations(sim)[[1]]
pkAnalyses <- calculatePKAnalyses(results)

allPKParameters <- pkAnalyses$allPKParametersFor(quantityPath = "Organism|VenousBlood|Plasma|Caffeine")
pkParameter <- allPKParameters[[1]]

test_that("It can print a quantity PK parameter", {
  expect_error(capture.output(pkParameter$print()), NA)
})

test_that("It can resolve the unit and dimension of a quantity PK-Parameter", {
  for (pkParameter in allPKParameters) {
    expect_false(is.null(pkParameter$unit))
    expect_false(is.null(pkParameter$dimension))
  }
})