Running ‘testthat.R’ [15s/16s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(sqlscore)
  > 
  > test_check("sqlscore")
  1. Error: glmboost coefficients are extracted correctly (@test-extract_coef.R#53) 
  'arg' should be one of "adaboost", "glm"
  1: mboost::glmboost(as.factor(Sepal.Length > 5.1) ~ Sepal.Width + Petal.Length + Petal.Width + 
         Species, data = datasets::iris, family = mboost::Binomial("logit")) at testthat/test-extract_coef.R:53
  2: glmboost.formula(as.factor(Sepal.Length > 5.1) ~ Sepal.Width + Petal.Length + Petal.Width + 
         Species, data = datasets::iris, family = mboost::Binomial("logit"))
  3: mboost_fit(bl, response = response, weights = weights, control = control, ...)
  4: mboost::Binomial("logit")
  5: match.arg(type)
  6: stop(gettextf("'arg' should be one of %s", paste(dQuote(choices), collapse = ", ")), 
         domain = NA)
  
  2. Error: Logit glmboost is handled correctly (@test-score_expression.R#140) ---
  'arg' should be one of "adaboost", "glm"
  1: mboost::glmboost(as.factor(Sepal.Length > 5.1) ~ Sepal.Width + Petal.Length + Petal.Width + 
         Species, data = datasets::iris, family = mboost::Binomial("logit")) at testthat/test-score_expression.R:140
  2: glmboost.formula(as.factor(Sepal.Length > 5.1) ~ Sepal.Width + Petal.Length + Petal.Width + 
         Species, data = datasets::iris, family = mboost::Binomial("logit"))
  3: mboost_fit(bl, response = response, weights = weights, control = control, ...)
  4: mboost::Binomial("logit")
  5: match.arg(type)
  6: stop(gettextf("'arg' should be one of %s", paste(dQuote(choices), collapse = ", ")), 
         domain = NA)
  
  testthat results ================================================================
  OK: 92 SKIPPED: 0 FAILED: 2
  1. Error: glmboost coefficients are extracted correctly (@test-extract_coef.R#53) 
  2. Error: Logit glmboost is handled correctly (@test-score_expression.R#140) 
  
  Error: testthat unit tests failed
  Execution halted