Running 'testthat.R' [143s]
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: mark_my_assignment() (@test-mark_my_assignment.R#5)  --------------
  'D:/temp/RtmpyGgZKy/RLIBS_17a1854c27e70/markmyassignment/extdata/https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_task1.R' is an incorrect path.
  1: suppressWarnings(suppressMessages(set_assignment(path = file.path(system.file(package = "markmyassignment"), 
         "extdata/example_assignment01.yml")))) at testthat/test-mark_my_assignment.R:5
  2: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  3: suppressMessages(set_assignment(path = file.path(system.file(package = "markmyassignment"), 
         "extdata/example_assignment01.yml")))
  4: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  5: set_assignment(path = file.path(system.file(package = "markmyassignment"), "extdata/example_assignment01.yml"))
  6: download_assignment(assignment, path)
  7: get_assignment_full_subpath(assignment$tasks[[j]]$url[i], path)
  8: path_type(file.path(base_path, sub_path))
  9: stop("'", path, "' is an incorrect path.")
  
  -- 2. Error: Assertions on arguments mark_my_assignment() (@test-mark_my_assignm
  'D:/temp/RtmpyGgZKy/RLIBS_17a1854c27e70/markmyassignment/extdata/https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_task1.R' is an incorrect path.
  1: suppressMessages(set_assignment(file.path(system.file(package = "markmyassignment"), 
         "extdata/example_assignment01.yml"))) at testthat/test-mark_my_assignment.R:68
  2: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  3: set_assignment(file.path(system.file(package = "markmyassignment"), "extdata/example_assignment01.yml"))
  4: download_assignment(assignment, path)
  5: get_assignment_full_subpath(assignment$tasks[[j]]$url[i], path)
  6: path_type(file.path(base_path, sub_path))
  7: stop("'", path, "' is an incorrect path.")
  
  -- 3. Error: mark_my_dir() (@test-mark_my_dir.R#8)  ----------------------------
  
    'D:/temp/RtmpyGgZKy/RLIBS_17a1854c27e70/markmyassignment/extdata/https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_task1.R' is an incorrect path.
  1: expect_message(x <- capture_output(res_mark <- mark_my_dir(directory = test_dir, 
         assignment_path = test_assgn_file))) at testthat/test-mark_my_dir.R:8
  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: capture_output(res_mark <- mark_my_dir(directory = test_dir, assignment_path = test_assgn_file))
  7: capture_output_lines(code, print, width = width)
  8: eval_with_output(code, print = print, width = width)
  9: withr::with_output_sink(temp, withVisible(code))
  10: force(code)
  11: withVisible(code)
  12: mark_my_dir(directory = test_dir, assignment_path = test_assgn_file)
  13: stop(set_assgn_result[1])
  
  -- 4. Error: mark_my_file() (@test-mark_my_file.R#11)  -------------------------
  
    'D:/temp/RtmpyGgZKy/RLIBS_17a1854c27e70/markmyassignment/extdata/https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_task1.R' is an incorrect path.
  1: capture.output(y <- mark_my_file(mark_file = source_file, assignment_path = assignment_file, 
         quiet = TRUE)) at testthat/test-mark_my_file.R:11
  2: evalVis(expr)
  3: withVisible(eval(expr, pf))
  4: eval(expr, pf)
  5: eval(expr, pf)
  6: mark_my_file(mark_file = source_file, assignment_path = assignment_file, quiet = TRUE)
  7: stop(set_assgn_result[1])
  
  -- 5. Error: Load packages before (@test-mark_my_file.R#49)  -------------------
  
    'D:/temp/RtmpyGgZKy/RLIBS_17a1854c27e70/markmyassignment/extdata/https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_task1.R' is an incorrect path.
  1: expect_warning(capture.output(mark_my_file(mark_file = source_file, assignment_path = assignment_file)), 
         regexp = "The following packages need to be installed and then loaded") at testthat/test-mark_my_file.R:49
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  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: capture.output(mark_my_file(mark_file = source_file, assignment_path = assignment_file))
  7: evalVis(expr)
  8: withVisible(eval(expr, pf))
  9: eval(expr, pf)
  10: eval(expr, pf)
  11: mark_my_file(mark_file = source_file, assignment_path = assignment_file)
  12: stop(set_assgn_result[1])
  
  -- 6. Error: additional tests (@test-mark_my_file.R#62)  -----------------------
  'D:/temp/RtmpyGgZKy/RLIBS_17a1854c27e70/markmyassignment/extdata/https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_task1.R' is an incorrect path.
  1: suppressMessages(set_assignment(assignment_path)) at testthat/test-mark_my_file.R:62
  2: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  3: set_assignment(assignment_path)
  4: download_assignment(assignment, path)
  5: get_assignment_full_subpath(assignment$tasks[[j]]$url[i], path)
  6: path_type(file.path(base_path, sub_path))
  7: stop("'", path, "' is an incorrect path.")
  
  -- 7. Error: set_assignment() (@test-set_assignment.R#18)  ---------------------
  'https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_assignment01.yml' is an incorrect path.
  1: expect_is(suppressMessages(set_assignment(correct_url1)), "character") at testthat/test-set_assignment.R:18
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: suppressMessages(set_assignment(correct_url1))
  5: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  6: set_assignment(correct_url1)
  7: path_type(path, auth)
  8: stop("'", path, "' is an incorrect path.")
  
  -- 8. Error: show_tasks() (@test-set_assignment.R#42)  -------------------------
  'https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_assignment04.yml' is an incorrect path.
  1: suppressMessages(set_assignment(correct_url4)) at testthat/test-set_assignment.R:42
  2: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  3: set_assignment(correct_url4)
  4: path_type(path, auth)
  5: stop("'", path, "' is an incorrect path.")
  
  -- 9. Error: show_assignment() (@test-set_assignment.R#55)  --------------------
  'https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_assignment04.yml' is an incorrect path.
  1: suppressMessages(set_assignment(correct_url4)) at testthat/test-set_assignment.R:55
  2: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  3: set_assignment(correct_url4)
  4: path_type(path, auth)
  5: stop("'", path, "' is an incorrect path.")
  
  -- 10. Error: check_installed_packages() (@test-set_assignment.R#63)  ----------
  'D:/temp/RtmpyGgZKy/RLIBS_17a1854c27e70/markmyassignment/extdata/https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_task1.R' is an incorrect path.
  1: expect_warning(suppressMessages(set_assignment(path = assgn_path))) at testthat/test-set_assignment.R:63
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  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: suppressMessages(set_assignment(path = assgn_path))
  7: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  8: set_assignment(path = assgn_path)
  9: download_assignment(assignment, path)
  10: get_assignment_full_subpath(assignment$tasks[[j]]$url[i], path)
  11: path_type(file.path(base_path, sub_path))
  12: stop("'", path, "' is an incorrect path.")
  
  -- 11. Error: path_type() (@test-set_assignment.R#86)  -------------------------
  'https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_assignment01.yml' is an incorrect path.
  1: expect_silent(pt <- path_type(correct_url1)) at testthat/test-set_assignment.R:86
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: path_type(correct_url1)
  10: stop("'", path, "' is an incorrect path.")
  
  -- 12. Error: get_assignment_full_subpath() (@test-set_assignment.R#126)  ------
  'https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_assignment01.yml' is an incorrect path.
  1: path_type(correct_url1) at testthat/test-set_assignment.R:126
  2: stop("'", path, "' is an incorrect path.")
  
  -- 13. Error: remove_assignment() (@test-set_assignment.R#161)  ----------------
  'D:/temp/RtmpyGgZKy/RLIBS_17a1854c27e70/markmyassignment/extdata/https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_task1.R' is an incorrect path.
  1: expect_is(suppressMessages(set_assignment(correct_local1)), "character") at testthat/test-set_assignment.R:161
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: suppressMessages(set_assignment(correct_local1))
  5: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  6: set_assignment(correct_local1)
  7: download_assignment(assignment, path)
  8: get_assignment_full_subpath(assignment$tasks[[j]]$url[i], path)
  9: path_type(file.path(base_path, sub_path))
  10: stop("'", path, "' is an incorrect path.")
  
  -- 14. Error: assignment_template (@test-set_assignment.R#173)  ----------------
  'D:/temp/RtmpyGgZKy/RLIBS_17a1854c27e70/markmyassignment/extdata/https://raw.githubusercontent.com/MansMeg/markmyassignment/master/inst/extdata/example_task2_b.R' is an incorrect path.
  1: expect_message(set_assignment(assignment_template_file), regexp = "Assignment template") at testthat/test-set_assignment.R:173
  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: set_assignment(assignment_template_file)
  7: download_assignment(assignment, path)
  8: get_assignment_full_subpath(assignment$tasks[[j]]$url[i], path)
  9: path_type(file.path(base_path, sub_path))
  10: stop("'", path, "' is an incorrect path.")
  
  == testthat results  ===========================================================
  OK: 75 SKIPPED: 0 FAILED: 14
  1. Error: mark_my_assignment() (@test-mark_my_assignment.R#5) 
  2. Error: Assertions on arguments mark_my_assignment() (@test-mark_my_assignment.R#68) 
  3. Error: mark_my_dir() (@test-mark_my_dir.R#8) 
  4. Error: mark_my_file() (@test-mark_my_file.R#11) 
  5. Error: Load packages before (@test-mark_my_file.R#49) 
  6. Error: additional tests (@test-mark_my_file.R#62) 
  7. Error: set_assignment() (@test-set_assignment.R#18) 
  8. Error: show_tasks() (@test-set_assignment.R#42) 
  9. Error: show_assignment() (@test-set_assignment.R#55) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted