add contributor; tests for edge cases

DESCRIPTION

@@ -8,6 +8,7 @@ Authors@R: c(
         person("Jasmine", "Hughes", email = "[email protected]", role = "aut"),
         person("Dominic", "Tong", email = "[email protected]", role = "aut"),
         person("Kara", "Woo", email = "[email protected]", role = c("aut")),
+        person("Jordan", "Brooks", email = "[email protected]", role = "aut"),
         person("InsightRX", role = c("cph", "fnd")))
 Depends: R (>= 3.0.2)
 Imports: Rcpp (>= 0.12.9), BH, data.table, stringr, MASS,

tests/testthat/test_new_regimen.R

@@ -90,7 +90,28 @@ test_that("t_inf imputed correctly", {
     type = c("sc", "infusion", "im", "sc", "infusion", "im","bolus","oral"),
     t_inf = c(2/60, 2.5, 3/60, NA, NA, NA, NA, NA)
   )
+  reg3 <- new_regimen(
+    amt = 100,
+    times = c(0, 12, 24, 36, 48, 60, 72, 84),
+    type = c("sc", "infusion", "im", "sc", "infusion", "im","bolus","oral"),
+    t_inf = numeric(0)
+  )
+  reg4 <- new_regimen(
+    amt = 100,
+    times = c(0, 12, 24, 36, 48, 60, 72, 84),
+    type = c("sc", "infusion", "im", "sc", "infusion", "im","bolus","oral"),
+    t_inf = NULL
+  )
+  reg5 <- new_regimen(
+    amt = 100,
+    times = c(0, 12, 24, 36),
+    type = c("sc", "infusion", "im", "unknown_drug_type"),
+    t_inf = c(2/60, 2.5, 3/60, NA)
+  )
   expect_equal(reg1$t_inf, c(1/60, 1, 1/60, 1/60, 1, 1/60, 0, 0))
   expect_equal(reg2$t_inf, c(2/60, 2.5, 3/60, 1/60, 1, 1/60, 0, 0))
+  expect_equal(reg3$t_inf, c(1/60, 1, 1/60, 1/60, 1, 1/60, 0, 0))
+  expect_equal(reg4$t_inf, c(1/60, 1, 1/60, 1/60, 1, 1/60, 0, 0))
+  expect_equal(reg5$t_inf, c(2/60, 2.5, 3/60, 1))
 })