Running ‘testthat.R’ [4s/24s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(RColetum)
  > 
  > test_check("RColetum")
  ── 1. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#641)  ─────
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5715)` threw an error with unexpected message.
  Expected match: "Form not found."
  Actual message: "Error 503: \n"
  
  ── 2. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#646)  ─────
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", nameForm = "RColetum Test - NaN")` threw an error with unexpected message.
  Expected match: "Name not found."
  Actual message: "Error 503: \n"
  
  ── 3. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#652)  ─────
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5841, "RColetum Test - NaN")` threw an error with unexpected message.
  Expected match: "Form not found."
  Actual message: "Error 503: \n"
  
  ── 4. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#661)  ─────
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5715, "RColetum Test - Iris")` threw an error with unexpected message.
  Expected match: "Form not found."
  Actual message: "Error 503: \n"
  
  ── 5. Failure: errors in the bad use of filters parameters (@test-GetAnswers.R#6
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5705, source = "web")` threw an error with unexpected message.
  Expected match: "The option 'web' are not avaliable for the filter 'source'. The avaliable options to this filter are: 'web_public' or 'web_private' or 'mobile'."
  Actual message: "Error 503: \n"
  
  ── 6. Failure: errors in the bad use of filters parameters (@test-GetAnswers.R#6
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5705, source = "private")` threw an error with unexpected message.
  Expected match: "The option 'private' are not avaliable for the filter 'source'. The avaliable options to this filter are: 'web_public' or 'web_private' or 'mobile'."
  Actual message: "Error 503: \n"
  
  ── 7. Error: warming when is informed the idForm and nameForm (@test-GetAnswers.
  
  1: expect_warning(GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5705, "RColetum Test - Iris"), 
         "The idForm and nameForm are provided. Ignoring the nameForm.") at testthat/test-GetAnswers.R:755
  2: quasi_capture(enquo(object), label, capture_warnings)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(.quo), get_env(.quo))
  6: GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5705, "RColetum Test - Iris")
  7: GetFormStructure(token, idForm)
  8: requestFunction(query = query, token = token)
  9: stop(paste0("Error ", status_code, ": ", resp$message, "\n"))
  
  ── 8. Error: get answers in simple form (@test-GetAnswers.R#764)  ──────────────
  
  1: GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5705) at testthat/test-GetAnswers.R:764
  2: GetFormStructure(token, idForm)
  3: requestFunction(query = query, token = token)
  4: stop(paste0("Error ", status_code, ": ", resp$message, "\n"))
  
  ── 9. Error: get answers in more complex forms (@test-GetAnswers.R#897)  ───────
  
  1: GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5719) at testthat/test-GetAnswers.R:897
  2: GetFormStructure(token, idForm)
  3: requestFunction(query = query, token = token)
  4: stop(paste0("Error ", status_code, ": ", resp$message, "\n"))
  
  ── 10. Error: get answers in single data frame (@test-GetAnswers.R#910)  ───────
  
  1: GetAnswers(token = "cizio7xeohwgc8k4g4koo008kkoocwg", idForm = 5719, singleDataFrame = TRUE) at testthat/test-GetAnswers.R:910
  2: GetFormStructure(token, idForm)
  3: requestFunction(query = query, token = token)
  4: stop(paste0("Error ", status_code, ": ", resp$message, "\n"))
  
  ── 11. Error: Test GetAnswers on a single data frame in a very complex forms,
    
  
  1: GetAnswers(token = "cizio7xeohwgc8k4g4koo008kkoocwg", idForm = 5722, singleDataFrame = TRUE) at testthat/test-GetAnswersComplexForm.R:81944
  2: GetFormStructure(token, idForm)
  3: requestFunction(query = query, token = token)
  4: stop(paste0("Error ", status_code, ": ", resp$message, "\n"))
  
  ── 12. Failure: error by wrong idForm or nameForm (@test-GetFormStructure.R#15) 
  `GetFormStructure("cizio7xeohwgc8k4g4koo008kkoocwg", 5715)` threw an error with unexpected message.
  Expected match: "Form not found."
  Actual message: "Error 503: \n"
  
  ── 13. Failure: error by wrong idForm or nameForm (@test-GetFormStructure.R#20) 
  `GetFormStructure("cizio7xeohwgc8k4g4koo008kkoocwg", nameForm = "RColetum Test - NaN")` threw an error with unexpected message.
  Expected match: "Name not found."
  Actual message: "Error 503: \n"
  
  ── 14. Failure: error by wrong idForm or nameForm (@test-GetFormStructure.R#26) 
  `GetFormStructure("cizio7xeohwgc8k4g4koo008kkoocwg", 5841, "RColetum Test - NaN")` threw an error with unexpected message.
  Expected match: "Form not found."
  Actual message: "Error 503: \n"
  
  ── 15. Failure: error by wrong idForm or nameForm (@test-GetFormStructure.R#35) 
  `GetFormStructure("cizio7xeohwgc8k4g4koo008kkoocwg", 5715, "RColetum Test - Iris")` threw an error with unexpected message.
  Expected match: "Form not found."
  Actual message: "Error 503: \n"
  
  ── 16. Error: Warming when is informed the idForm and nameForm (@test-GetFormStr
  
  1: expect_warning(GetFormStructure("cizio7xeohwgc8k4g4koo008kkoocwg", 5705, "RColetum Test - Iris"), 
         "The idForm and nameForm are provided. Ignoring the nameForm.") at testthat/test-GetFormStructure.R:52
  2: quasi_capture(enquo(object), label, capture_warnings)
  3: .capture(act$val <- eval_bare(get_expr(.quo), get_env(.quo)), ...)
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(.quo), get_env(.quo))
  6: GetFormStructure("cizio7xeohwgc8k4g4koo008kkoocwg", 5705, "RColetum Test - Iris")
  7: requestFunction(query = query, token = token)
  8: stop(paste0("Error ", status_code, ": ", resp$message, "\n"))
  
  ── 17. Error: GetFormStructure in simple form (@test-GetFormStructure.R#111)  ──
  
  1: GetFormStructure("cizio7xeohwgc8k4g4koo008kkoocwg", 5705) at testthat/test-GetFormStructure.R:111
  2: requestFunction(query = query, token = token)
  3: stop(paste0("Error ", status_code, ": ", resp$message, "\n"))
  
  ── 18. Error: GetFormStructure in complex and nested form (@test-GetFormStructur
  
  1: GetFormStructure("cizio7xeohwgc8k4g4koo008kkoocwg", 5722) at testthat/test-GetFormStructure.R:221
  2: requestFunction(query = query, token = token)
  3: stop(paste0("Error ", status_code, ": ", resp$message, "\n"))
  
  ── 19. Error: get forms with no filter (@test-GetForms.R#74)  ──────────────────
  
  1: dplyr::arrange(GetForms("cizio7xeohwgc8k4g4koo008kkoocwg"), name, id) at testthat/test-GetForms.R:74
  2: GetForms("cizio7xeohwgc8k4g4koo008kkoocwg")
  3: requestFunction(query = query, token = token)
  4: stop(paste0("Error ", status_code, ": ", resp$message, "\n"))
  
  ── 20. Error: get forms with the filters (@test-GetForms.R#81)  ────────────────
  
  1: GetForms("cizio7xeohwgc8k4g4koo008kkoocwg", status = "disabled") at testthat/test-GetForms.R:81
  2: requestFunction(query = query, token = token)
  3: stop(paste0("Error ", status_code, ": ", resp$message, "\n"))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 25 SKIPPED: 0 WARNINGS: 0 FAILED: 20
  1. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#641) 
  2. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#646) 
  3. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#652) 
  4. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#661) 
  5. Failure: errors in the bad use of filters parameters (@test-GetAnswers.R#685) 
  6. Failure: errors in the bad use of filters parameters (@test-GetAnswers.R#694) 
  7. Error: warming when is informed the idForm and nameForm (@test-GetAnswers.R#755) 
  8. Error: get answers in simple form (@test-GetAnswers.R#764) 
  9. Error: get answers in more complex forms (@test-GetAnswers.R#897) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted