Running ‘testthat.R’ [2s/10s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > test_check("markmyassignment")
  Loading required package: markmyassignment
  Loading required package: yaml
  Loading required package: httr
  Loading required package: checkmate
  ── 1. Error: is_github_path (@test-github.R#10)  ───────────────────────────────
  STRING_ELT() can only be applied to a 'character vector', not a 'symbol'
  1: expect_names(names(is_github_path("https://api.github.com/repos/octokit/octokit.rb/contents/README.md")), 
         identical.to = "api_contents") at testthat/test-github.R:10
  2: checkNames(x, type, subset.of, must.include, permutation.of, identical.to, disjunct.from)
  3: .Call(c_check_names, x, type) %and% checkNamesCmp(x, subset.of, must.include, permutation.of, 
         identical.to, disjunct.from)
  4: checkNamesCmp(x, subset.of, must.include, permutation.of, identical.to, disjunct.from)
  5: qassert(identical.to, "S")
  
  ── 2. Error: get_github_path_info (@test-github.R#25)  ─────────────────────────
  LOGICAL() can only be applied to a 'logical', not a 'NULL'
  1: expect_message(gpi <- get_github_path_info(path1)) at testthat/test-github.R:25
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: get_github_path_info(path1)
  7: checkmate::assert_true(is_github_url)
  8: checkTRUE(x, na.ok)
  9: qassert(na.ok, "B1")
  
  
   *** caught segfault ***
  address 8, cause 'memory not mapped'
  
  Traceback:
   1: qassert(classes, "S+")
   2: checkClass(x, classes, ordered, null.ok)
   3: checkmate::assert_class(path, "path_type")
   4: get_file(path = path, dest = temp_file)
   5: set_assignment(path = file.path(system.file(package = "markmyassignment"),     "extdata/example_assignment01.yml"))
   6: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
   7: suppressMessages(set_assignment(path = file.path(system.file(package = "markmyassignment"),     "extdata/example_assignment01.yml")))
   8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
   9: suppressWarnings(suppressMessages(set_assignment(path = file.path(system.file(package = "markmyassignment"),     "extdata/example_assignment01.yml"))))
  10: eval(code, test_env)
  11: eval(code, test_env)
  12: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error)
  13: doTryCatch(return(expr), name, parentenv, handler)
  14: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  15: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error), error = handle_fatal,     skip = function(e) {    })
  20: test_code(desc, code, env = parent.frame())
  21: test_that(desc = "mark_my_assignment()", {    suppressWarnings(suppressMessages(set_assignment(path = file.path(system.file(package = "markmyassignment"),         "extdata/example_assignment01.yml"))))    source(file.path(system.file(package = "markmyassignment"),         "extdata/example_lab_file.R"))    expect_is(capture.output(mark_my_assignment()), "character")    expect_silent(capture.output(mark_my_assignment(reporter = "summary")))    expect_error(capture.output(mark_my_assignment(reporter = "non_existing_reporter")))    x <- capture.output(y <- mark_my_assignment(quiet = TRUE))    expect_is(y, "testthat_results")    expect_equal(length(y), 4)    expect_length(x, 0)    x <- capture.output(y <- mark_my_assignment(tasks = "task1"))    expect_is(y, "testthat_results")    expect_equal(length(y), 2)    x <- capture.output(y <- mark_my_assignment(tasks = c("task1",         "task2"), quiet = TRUE))    expect_is(y, "testthat_results")    expect_equal(length(y), 4)    expect_length(x, 0)    x <- expect_warning(capture.output(y <- mark_my_assignment(force_get_tests = TRUE,         quiet = TRUE)))    expect_is(y, "testthat_results")    expect_warning(x <- capture.output(mark_my_assignment(mark_file = file.path(system.file(package = "markmyassignment"),         "extdata/example_lab_file.R"))))    source(file.path(system.file(package = "markmyassignment"),         "extdata/example_lab_file_errors.R"))    expect_silent(capture.output(y <- mark_my_assignment()))    expect_equal(length(y), 4)    suppressMessages(set_assignment(file.path(system.file(package = "markmyassignment"),         "extdata/example_assignment01.yml")))    source(file.path(system.file(package = "markmyassignment"),         "extdata/example_lab_file.R"))    expect_silent(capture.output(y <- mark_my_assignment()))    expect_equal(length(y), 4)})
  22: eval(code, test_env)
  23: eval(code, test_env)
  24: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error)
  25: doTryCatch(return(expr), name, parentenv, handler)
  26: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  27: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  28: doTryCatch(return(expr), name, parentenv, handler)
  29: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  30: tryCatchList(expr, classes, parentenv, handlers)
  31: tryCatch(withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error), error = handle_fatal,     skip = function(e) {    })
  32: test_code(NULL, exprs, env)
  33: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
  34: force(code)
  35: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,     {        lister$start_file(basename(path))        source_file(path, new.env(parent = env), chdir = TRUE,             wrap = wrap)        end_context()    })
  36: FUN(X[[i]], ...)
  37: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
  38: force(code)
  39: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE, wrap = wrap))
  40: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
  41: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     wrap = wrap)
  42: test_package_dir(package = package, test_path = test_path, filter = filter,     reporter = reporter, ..., stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
  43: test_check("markmyassignment")
  An irrecoverable exception occurred. R is aborting now ...