Running ‘testthat.R’ [14s/17s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ddpcr)
  
  Attaching package: 'ddpcr'
  
  The following object is masked from 'package:stats':
  
      step
  
  > 
  > test_check("ddpcr")
  ── 1. Error: getting/setting thresholds works (@test-custom_thresholds.R#24)  ──
  plate %>% inherits("ddpcr_plate") is not TRUE
  1: `thresholds<-`(`*tmp*`, value = c(3000, 6000)) at testthat/test-custom_thresholds.R:24
  2: `params<-`(`*tmp*`, "CLASSIFY", "Y_THRESHOLD", value = 6000L)
  3: stopifnot(plate %>% inherits("ddpcr_plate"))
  
  ── 2. Error: classify works (@test-custom_thresholds.R#38)  ────────────────────
  plate %>% inherits("ddpcr_plate") is not TRUE
  1: get_plate() %>% set_thresholds(c(4000, 7000)) %>% analyze at testthat/test-custom_thresholds.R:38
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: set_thresholds(., c(4000, 7000))
  9: `thresholds<-`(plate, value)
  10: `params<-`(`*tmp*`, "CLASSIFY", "Y_THRESHOLD", value = 7000L)
  11: stopifnot(plate %>% inherits("ddpcr_plate"))
  
  ── 3. Error: test basic plate attribute getters/setters (@test-plate-attribs.R#7
  plate %>% inherits("ddpcr_plate") is not TRUE
  1: expect_identical(plate %>% `x_var<-`("newx") %>% x_var, "newx") at testthat/test-plate-attribs.R:78
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: plate %>% `x_var<-`("newx") %>% x_var
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: x_var(.)
  13: stopifnot(plate %>% inherits("ddpcr_plate"))
  
  ── 4. Error: reset works (@test-plate.R#14)  ───────────────────────────────────
  plate %>% inherits("ddpcr_plate") is not TRUE
  1: plate %>% reset(keep_type = TRUE) at testthat/test-plate.R:14
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: reset(., keep_type = TRUE)
  10: setup_plate(plate, type)
  11: set_default_params(plate)
  12: `y_var<-`(`*tmp*`, value = list(Y_VAR = "FAM"))
  13: stopifnot(plate %>% inherits("ddpcr_plate"))
  
  ── 5. Error: positive_dim and variable_dim work (@test-pnpp_experiment.R#35)  ──
  plate %>% inherits("pnpp_experiment") is not TRUE
  1: expect_identical(positive_dim(plate), "X") at testthat/test-pnpp_experiment.R:35
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: positive_dim(plate)
  5: stopifnot(plate %>% inherits("pnpp_experiment"))
  
  ── 6. Error: positive_dim_var and variable_dim_var work (@test-pnpp_experiment.R
  plate %>% inherits("ddpcr_plate") is not TRUE
  1: `y_var<-`(`*tmp*`, value = "YYY") at testthat/test-pnpp_experiment.R:42
  2: stopifnot(plate %>% inherits("ddpcr_plate"))
  
  ── 7. Error: meta_var_name works (@test-pnpp_experiment.R#62)  ─────────────────
  plate %>% inherits("ddpcr_plate") is not TRUE
  1: `params<-`(`*tmp*`, "GENERAL", "POSITIVE_NAME", value = "wildtype") at testthat/test-pnpp_experiment.R:62
  2: stopifnot(plate %>% inherits("ddpcr_plate"))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 245 SKIPPED: 0 FAILED: 7
  1. Error: getting/setting thresholds works (@test-custom_thresholds.R#24) 
  2. Error: classify works (@test-custom_thresholds.R#38) 
  3. Error: test basic plate attribute getters/setters (@test-plate-attribs.R#78) 
  4. Error: reset works (@test-plate.R#14) 
  5. Error: positive_dim and variable_dim work (@test-pnpp_experiment.R#35) 
  6. Error: positive_dim_var and variable_dim_var work (@test-pnpp_experiment.R#42) 
  7. Error: meta_var_name works (@test-pnpp_experiment.R#62) 
  
  Error: testthat unit tests failed
  Execution halted