From 8e4b7fd0f75950883da1320bdbe9c73403133e41 Mon Sep 17 00:00:00 2001 From: "alex.hill@gmail.com" Date: Fri, 1 Nov 2024 11:32:31 +0000 Subject: [PATCH] fix test --- R/plot.R | 4 ++-- tests/testthat/test-convert-log-scale.R | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/plot.R b/R/plot.R index 1234754..eae3678 100644 --- 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 index 26715fb..8cae6d9 100644 --- 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)