Running ‘testthat.R’ [68s/312s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > 
  > if (requireNamespace("testthat")) {
  +   library(testthat)
  +   library(learnr)
  + 
  +   test_check("learnr")
  + }
  Loading required namespace: testthat
  [ FAIL 3 | WARN 0 | SKIP 18 | PASS 820 ]
  
  ══ Skipped tests (18) ══════════════════════════════════════════════════════════
  • On CRAN (18): 'test-available-tutorials.R:17:3', 'test-evaluators.R:2:3',
    'test-evaluators.R:92:3', 'test-evaluators.R:137:3',
    'test-evaluators.R:179:3', 'test-evaluators.R:212:3',
    'test-evaluators.R:244:3', 'test-evaluators.R:279:3',
    'test-evaluators.R:363:3', 'test-exercise.R:367:3', 'test-exercise.R:1237:3',
    'test-exercise.R:1377:3', 'test-exercise.R:1426:3', 'test-exercise.R:1444:3',
    'test-exercise.R:1472:3', 'test-exercise.R:1535:3',
    'test-shinytest2-aaa.R:2:1', 'test-shinytest2-hints.R:2:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-exercise.R:1105:3'): evaluate_exercise() returns a message if code is unparsable ──
  result\$error_message does not match "unexpected end of input".
  Actual value: "<text>:2:0: syntax error\\n1: print\("test"\\n   \^"
  Backtrace:
      ▆
   1. └─testthat::expect_match(result$error_message, "unexpected end of input") at test-exercise.R:1105:3
   2.   └─testthat:::expect_match_(...)
  ── Failure ('test-exercise.R:1115:3'): evaluate_exercise() returns a message if code is unparsable ──
  result\$error_message does not match "unexpected INCOMPLETE_STRING".
  Actual value: "<text>:1:7: syntax error\\n1: print\("test\)\\n          \^"
  Backtrace:
      ▆
   1. └─testthat::expect_match(result$error_message, "unexpected INCOMPLETE_STRING") at test-exercise.R:1115:3
   2.   └─testthat:::expect_match_(...)
  ── Failure ('test-exercise.R:1125:3'): evaluate_exercise() returns a message if code is unparsable ──
  result\$error_message does not match "unexpected symbol".
  Actual value: "<text>:1:11: syntax error\\n1: mean\(1:10 na\.rm\\n              \^"
  Backtrace:
      ▆
   1. └─testthat::expect_match(result$error_message, "unexpected symbol") at test-exercise.R:1125:3
   2.   └─testthat:::expect_match_(...)
  
  [ FAIL 3 | WARN 0 | SKIP 18 | PASS 820 ]
  Error: Test failures
  Execution halted