Running ‘testthat.R’ [61s/84s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(insight)
  > 
  > if (length(strsplit(packageDescription("insight")$Version, "\\.")[[1]]) > 3) {
  +   Sys.setenv("RunAllinsightTests" = "yes")
  + } else {
  +   Sys.setenv("RunAllinsightTests" = "no")
  + }
  > 
  > test_check("insight")
  GAM s.wam loop 1: deviance = 66.42095 
  GAM s.wam loop 2: deviance = 63.77252 
  GAM s.wam loop 3: deviance = 63.25199 
  GAM s.wam loop 4: deviance = 63.13399 
  GAM s.wam loop 5: deviance = 63.11016 
  GAM s.wam loop 6: deviance = 63.10748 
  GAM s.wam loop 7: deviance = 63.10727 
  GAM s.wam loop 8: deviance = 63.10725 
  GAM s.wam loop 9: deviance = 63.10725 
  ── 1. Error: model_info (@test-felm.R#26)  ─────────────────────────────────────
  invalid formula: "(Q | W ~ x3 + factor(x4))"
  1: expect_true(model_info(m1)$is_linear) at testthat/test-felm.R:26
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: model_info(m1)
  5: model_info.felm(m1)
  6: make_family(x, ...)
  7: find_random(x)
  8: find_formula(x)
  9: find_formula.felm(x)
  10: compact_list(list(conditional = as.formula(f.cond), random = as.formula(f.rand), 
         instruments = as.formula(f.instr), cluster = as.formula(f.clus)))
  11: as.formula(f.instr)
  12: formula(object, env = baseenv())
  13: formula.character(object, env = baseenv())
  14: stop(msg, domain = NA)
  
  ── 2. Error: find_predictors (@test-felm.R#30)  ────────────────────────────────
  invalid formula: "(Q | W ~ x3 + factor(x4))"
  1: expect_identical(find_predictors(m1), list(conditional = c("x", "x2"), instruments = c("Q", 
         "W", "x3", "x4"))) at testthat/test-felm.R:30
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: find_predictors(m1)
  5: find_formula(x)
  6: find_formula.felm(x)
  7: compact_list(list(conditional = as.formula(f.cond), random = as.formula(f.rand), 
         instruments = as.formula(f.instr), cluster = as.formula(f.clus)))
  8: as.formula(f.instr)
  9: formula(object, env = baseenv())
  10: formula.character(object, env = baseenv())
  11: stop(msg, domain = NA)
  
  ── 3. Error: find_random (@test-felm.R#36)  ────────────────────────────────────
  invalid formula: "(Q | W ~ x3 + factor(x4))"
  1: expect_identical(find_random(m1), list(random = c("id", "firm"))) at testthat/test-felm.R:36
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: find_random(m1)
  5: find_formula(x)
  6: find_formula.felm(x)
  7: compact_list(list(conditional = as.formula(f.cond), random = as.formula(f.rand), 
         instruments = as.formula(f.instr), cluster = as.formula(f.clus)))
  8: as.formula(f.instr)
  9: formula(object, env = baseenv())
  10: formula.character(object, env = baseenv())
  11: stop(msg, domain = NA)
  
  ── 4. Error: get_random (@test-felm.R#40)  ─────────────────────────────────────
  invalid formula: "(Q | W ~ x3 + factor(x4))"
  1: expect_identical(colnames(get_random(m1)), c("id", "firm")) at testthat/test-felm.R:40
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: colnames(get_random(m1))
  5: is.data.frame(x)
  6: get_random(m1)
  7: is_empty_object(find_random(x))
  8: suppressWarnings(x[!is.na(x)])
  9: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  10: find_random(x)
  11: find_formula(x)
  12: find_formula.felm(x)
  13: compact_list(list(conditional = as.formula(f.cond), random = as.formula(f.rand), 
         instruments = as.formula(f.instr), cluster = as.formula(f.clus)))
  14: as.formula(f.instr)
  15: formula(object, env = baseenv())
  16: formula.character(object, env = baseenv())
  17: stop(msg, domain = NA)
  
  ── 5. Error: find_response (@test-felm.R#44)  ──────────────────────────────────
  invalid formula: "(Q | W ~ x3 + factor(x4))"
  1: expect_identical(find_response(m1), "y") at testthat/test-felm.R:44
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: find_response(m1)
  5: find_formula(x)
  6: find_formula.felm(x)
  7: compact_list(list(conditional = as.formula(f.cond), random = as.formula(f.rand), 
         instruments = as.formula(f.instr), cluster = as.formula(f.clus)))
  8: as.formula(f.instr)
  9: formula(object, env = baseenv())
  10: formula.character(object, env = baseenv())
  11: stop(msg, domain = NA)
  
  ── 6. Error: get_response (@test-felm.R#48)  ───────────────────────────────────
  invalid formula: "(Q | W ~ x3 + factor(x4))"
  1: expect_equal(get_response(m1), dat$y) at testthat/test-felm.R:48
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_response(m1)
  5: find_response(x, combine = FALSE)
  6: find_formula(x)
  7: find_formula.felm(x)
  8: compact_list(list(conditional = as.formula(f.cond), random = as.formula(f.rand), 
         instruments = as.formula(f.instr), cluster = as.formula(f.clus)))
  9: as.formula(f.instr)
  10: formula(object, env = baseenv())
  11: formula.character(object, env = baseenv())
  12: stop(msg, domain = NA)
  
  ── 7. Error: get_predictors (@test-felm.R#52)  ─────────────────────────────────
  invalid formula: "(Q | W ~ x3 + factor(x4))"
  1: expect_equal(colnames(get_predictors(m1)), c("x", "x2", "Q", "W", "x3", "x4")) at testthat/test-felm.R:52
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: colnames(get_predictors(m1))
  5: is.data.frame(x)
  6: get_predictors(m1)
  7: get_data(x)
  8: get_data.felm(x)
  9: .get_data_from_modelframe(x, stats::model.frame(x), effects)
  10: find_terms(x, flatten = TRUE)
  11: find_response(x, combine = FALSE)
  12: find_formula(x)
  13: find_formula.felm(x)
  14: compact_list(list(conditional = as.formula(f.cond), random = as.formula(f.rand), 
         instruments = as.formula(f.instr), cluster = as.formula(f.clus)))
  15: as.formula(f.instr)
  16: formula(object, env = baseenv())
  17: formula.character(object, env = baseenv())
  18: stop(msg, domain = NA)
  
  ── 8. Error: get_data (@test-felm.R#60)  ───────────────────────────────────────
  invalid formula: "(Q | W ~ x3 + factor(x4))"
  1: expect_equal(nrow(get_data(m1)), 1000) at testthat/test-felm.R:60
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: nrow(get_data(m1))
  5: get_data(m1)
  6: get_data.felm(m1)
  7: .get_data_from_modelframe(x, stats::model.frame(x), effects)
  8: find_terms(x, flatten = TRUE)
  9: find_response(x, combine = FALSE)
  10: find_formula(x)
  11: find_formula.felm(x)
  12: compact_list(list(conditional = as.formula(f.cond), random = as.formula(f.rand), 
         instruments = as.formula(f.instr), cluster = as.formula(f.clus)))
  13: as.formula(f.instr)
  14: formula(object, env = baseenv())
  15: formula.character(object, env = baseenv())
  16: stop(msg, domain = NA)
  
  ── 9. Error: find_formula (@test-felm.R#65)  ───────────────────────────────────
  invalid formula: "(Q | W ~ x3 + factor(x4))"
  1: expect_length(find_formula(m1), 3) at testthat/test-felm.R:65
  2: quasi_label(enquo(object), arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: find_formula(m1)
  5: find_formula.felm(m1)
  6: compact_list(list(conditional = as.formula(f.cond), random = as.formula(f.rand), 
         instruments = as.formula(f.instr), cluster = as.formula(f.clus)))
  7: as.formula(f.instr)
  8: formula(object, env = baseenv())
  9: formula.character(object, env = baseenv())
  10: stop(msg, domain = NA)
  
  ── 10. Error: find_terms (@test-felm.R#77)  ────────────────────────────────────
  invalid formula: "(Q | W ~ x3 + factor(x4))"
  1: expect_equal(find_terms(m1), list(response = "y", conditional = c("x", "x2"), random = c("id", 
         "firm"), instruments = c("Q", "W", "x3", "x4"))) at testthat/test-felm.R:77
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: find_terms(m1)
  5: find_response(x, combine = FALSE)
  6: find_formula(x)
  7: find_formula.felm(x)
  8: compact_list(list(conditional = as.formula(f.cond), random = as.formula(f.rand), 
         instruments = as.formula(f.instr), cluster = as.formula(f.clus)))
  9: as.formula(f.instr)
  10: formula(object, env = baseenv())
  11: formula.character(object, env = baseenv())
  12: stop(msg, domain = NA)
  
  Gu & Wahba 4 term additive model
  GAMLSS-RS iteration 1: Global Deviance = 4771.925 
  GAMLSS-CG iteration 1: Global Deviance = 4771.013 
  GAMLSS-CG iteration 2: Global Deviance = 4770.994 
  GAMLSS-CG iteration 3: Global Deviance = 4770.994 
  4 term additive + random effectGu & Wahba 4 term additive model
  
   Maximum number of PQL iterations:  20 
  Gu & Wahba 4 term additive model
  (Intercept)    tensionM    tensionH 
     36.38889   -10.00000   -14.72222 
  Estimating SMNL model 
  Fitting one lmer() model. [DONE]
  Calculating p-values. [DONE]
  Fitting one lmer() model. [DONE]
  Calculating p-values. [DONE]
  # weights:  6 (5 variable)
  initial  value 131.004817 
  iter  10 value 108.535568
  final  value 108.535541 
  converged
  VGLM    linear loop  1 :  deviance = 5.181115
  VGLM    linear loop  2 :  deviance = 5.129147
  VGLM    linear loop  3 :  deviance = 5.129141
  VGLM    linear loop  4 :  deviance = 5.129141
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 1434 SKIPPED: 6 WARNINGS: 67 FAILED: 10
  1.  Error: model_info (@test-felm.R#26) 
  2.  Error: find_predictors (@test-felm.R#30) 
  3.  Error: find_random (@test-felm.R#36) 
  4.  Error: get_random (@test-felm.R#40) 
  5.  Error: find_response (@test-felm.R#44) 
  6.  Error: get_response (@test-felm.R#48) 
  7.  Error: get_predictors (@test-felm.R#52) 
  8.  Error: get_data (@test-felm.R#60) 
  9.  Error: find_formula (@test-felm.R#65) 
  10. Error: find_terms (@test-felm.R#77) 
  
  Error: testthat unit tests failed
  Execution halted