fix test

seroanalytics · Nov 1, 2024 · 8e4b7fd · 8e4b7fd
1 parent cac9fa6
commit 8e4b7fd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -17,7 +17,7 @@ plot.biokinetics_priors <- function(x,
 
   # Declare variables to suppress notes when compiling package
   # https://github.com/Rdatatable/data.table/issues/850#issuecomment-259466153
-  t0 <- tp <- ts <- m1 <- m2 <- m3 <- NULL
+  t0 <- tp <- ts <- m1 <- m2 <- m3 <- censored <- NULL
   time_since_last_exp <- me <- lo <- hi <- value <- mu <- NULL
 
   if (!is.null(data)) {
@@ -86,7 +86,7 @@ plot.biokinetics_population_trajectories <- function(x, ..., data = NULL) {
   # Declare variables to suppress notes when compiling package
   # https://github.com/Rdatatable/data.table/issues/850#issuecomment-259466153
   time_since_last_exp <- value <- me <- titre_type <- lo <- hi <- NULL
-  day <- last_exp_day <- mu <- .draw <- NULL
+  day <- last_exp_day <- mu <- .draw <- censored <- NULL
 
   if (attr(x, "summarised")) {
     plot <- ggplot(x) +

diff --git a/tests/testthat/test-convert-log-scale.R b/tests/testthat/test-convert-log-scale.R
@@ -1,6 +1,6 @@
 test_that("Can convert to and from log scale in R", {
   inputs <- data.table::fread(test_path("testdata", "testdata.csv"))
-  log_inputs <- convert_log2_scale(inputs, "me", simplify_limits = FALSE)
+  log_inputs <- convert_log2_scale(inputs, "me")
   unlog_inputs <- convert_log2_scale_inverse(log_inputs, "me")
 
   expect_equal(inputs, unlog_inputs)