tests/testthat/test-pmx-post_load.R

In ggPMXdevelopment/ggPMX: 'ggplot2' Based Tool to Facilitate Diagnostic Plots for NLME Models

if (helper_skip()) {

  context("Test pmx-post_load")

  test_that("post_load: params:input, dxs are dataframes, dxs$finegrid is NULL;
          result: list", {
            ctr <- theophylline()
            dxs <- ctr$data
            input <- ctr$input
            dxs$sim_blq_npde_iwres <- data.frame(ID = c(1, 2, 3), TIME = c(0.0, 0.5, 1.0), T = c(0.1, 0.23, 1.2))
            dxs$sim_blq_y <- data.frame(ID = c(1, 2, 3), TIME = c(0.0, 0.5, 1.0), A = c(0.1, 0.23, 1.2))
            sys <- "mlx"
            dplot <- ctr$config$plots
            occ <- ""
            r <- post_load(dxs, input, sys, dplot, occ)
            expect_true(inherits(r, "list"))
          })

  test_that("post_load: params:input, dxs are dataframes, dxs$finegrid is NULL;
          result: list", {
            ctr <- theophylline()
            dxs <- ctr$data
            dxs$finegrid <- NULL
            input <- ctr$input
            sys <- "mlx"
            dplot <- ctr$config$plots
            occ <- ""
            r <- post_load(dxs, input, sys, dplot, occ)
            expect_true(inherits(r, "list"))
          })
  test_that("input_finegrid: params:input, finegrid;
          result: data.frame", {
            ctr <- theophylline()
            input <- ctr$input
            finegrid <- ctr$data$finegrid
            r <- input_finegrid(input, finegrid)
            print(r)
            expect_true(inherits(r, "data.frame"))
          })

  test_that("input_finegrid: params: input, finegrid is NULL;
          result: can read NONMEM-Output", {
            ctr <- theophylline()
            input <- ctr$input
            finegrid <- NULL
            r <- input_finegrid(input, finegrid)
            expect_equal(r, NULL)
          })

  test_that("post_load_eta: params:input, ds are dataframes, input$ID is factor, occ;
          result: error", {
            ctr <- theophylline()
            ds <- data.frame(ID = c(1, 2, 3), TIME = c(0.0, 0.5, 1.0), AMT = c(2000, 0, 0), Y = c(0, 130, 228))
            input <- data.frame(ID = c(4, 5, 6), EVID = c(1, 0, 0), AGE0 = c(73, 81, 69), DV = c(0, 130, 228))
            occ <- ctr$occ
            sys <- "mlx"
            expect_error(post_load_eta(ds, input, sys, occ))
          })

  test_that("post_load_eta: params:input, ds are dataframes, input$ID is factor, occ;
          result: error", {
            ctr <- theophylline()
            ds <- data.frame(ID = c(1, 2, 3), TIME = c(0.0, 0.5, 1.0), AMT = c(2000, 0, 0), Y = c(0, 130, 228))
            input <- data.frame(ID = c(1, 2, 3), EVID = c(1, 0, 0), AGE0 = c(73, 81, 69), DV = c(0, 130, 228))
            occ <- ctr$occ
            sys <- "mlx"
            r <- post_load_eta(ds, input, sys, occ)
            expect_true(inherits(r, "data.frame"))
          })

  test_that("post_load_eta: params:input, ds are dataframes, input$ID is factor, occ;
          result: error", {
            ctr <- theophylline()
            ds <- ctr$data$eta
            input <- ctr$input
            input$ID <- as.factor(input$ID)
            sys <- "mlx"
            occ <- "OCC"
            expect_error(post_load_eta(ds, input, sys, occ))
          })

  test_that("post_load_eta: params:input, ds are dataframes, ds$ID is factor, occ;
          result: error", {
            ctr <- theophylline()
            ds <- ctr$data$eta
            input <- ctr$input
            ds$ID <- as.factor(ds$ID)
            sys <- "mlx"
            occ <- "OCC"
            expect_error(post_load_eta(ds, input, sys, occ))
          })
}