avoid locked binding

epiforecasts · Jul 18, 2023 · 45a369a · 45a369a
1 parent d139a58
commit 45a369a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 7 deletions.
diff --git a/tests/testthat/test-mixtures.R b/tests/testthat/test-mixtures.R
@@ -1,13 +1,12 @@
 library("data.table")
 
 test_that("Generating Mixtures works", {
- data <- setDT(example_data)
  weights <- c(0.2, 0.3, 0.4, 0.1)
- mix <- mixture_from_samples(data, weights = weights)
- first_sample_models <- data[
+ mix <- mixture_from_samples(example_data, weights = weights)
+ first_sample_models <- example_data[
  sample_nr == 1 & date == min(date) & geography == "Tatooine"
  ]
- first_sample_mix <- mix[
+ first_sample_mix <- example_data[
  sample_nr == 1 & date == min(date) & geography == "Tatooine"
  ]
  expect_equal(nrow(data), nrow(mix) * 4)

diff --git a/tests/testthat/test-weights.R b/tests/testthat/test-weights.R
@@ -2,10 +2,9 @@ library("data.table")
 
 test_that("Generating CRPS weights works", {
  splitdate <- as.Date("2020-03-28")
- data <- setDT(example_data)
 
- traindata <- data[date <= splitdate]
- testdata <- data[date > splitdate]
+ traindata <- example_data[date <= splitdate]
+ testdata <- example_data[date > splitdate]
 
  weights <- crps_weights(traindata)
  expect_equal(unname(round(weights, 4)), c(0.0003, 0.9989, 0.0004, 0.0003))