tests/testthat/test-geom-amt.R

In rxode2: Facilities for Simulating from ODE-Based Models

rxTest({
  if (!.Call(`_rxode2_isIntel`)) {
    test_that(".amtTrans", {
      expect_error(
        .amtTrans(data.frame()),
        regexp = "need 'amt' aesthetic"
      )
      expect_error(
        .amtTrans(data.frame(amt = 1)),
        regexp = "need 'x' aesthetic"
      )
      # No error for missing 'x' if 'time' is present
      expect_error(
        .amtTrans(data.frame(amt = 1, time = 1)),
        regexp = NA
      )
      expect_equal(
        .amtTrans(data.frame(amt = 1, time = 1)),
        data.frame(x = 1, amt = 1, xend = 1, y = -Inf, yend = Inf)
      )
      # NA rows are dropped
      expect_equal(
        .amtTrans(data.frame(amt = c(1, NA), time = 1:2)),
        data.frame(x = 1, amt = 1, xend = 1, y = -Inf, yend = Inf)
      )
    })
  }
})