Running 'testthat.R' [191s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(nitrcbot)
  Loading required package: httr
  Loading required package: dplyr
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > 
  > test_check("nitrcbot")
  -- 1. Error: download_nirc_dir (@test-download-nitrc-dir.R#10)  ----------------
  transfer closed with 3430551 bytes remaining to read
  1: testthat::expect_message(download_nitrc_dir("NITRC_IR_E10452", scan_type = "T1", 
         verbose = TRUE), "Downloading IXI002-Guys-0828-T1.nii.gz") at testthat/test-download-nitrc-dir.R:10
  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: download_nitrc_dir("NITRC_IR_E10452", scan_type = "T1", verbose = TRUE)
  7: mapply(function(file, prefix) {
         if (verbose) {
             message(paste0("Downloading ", basename(file)))
         }
         download_nitrc_file(file_path = file, prefix = prefix)
     }, scan_resources[, "URI"], scan_resources[, "cat_ID"])
  8: (function (file, prefix) 
     {
         if (verbose) {
             message(paste0("Downloading ", basename(file)))
         }
         download_nitrc_file(file_path = file, prefix = prefix)
     })(dots[[1L]][[1L]], dots[[2L]][[1L]])
  9: download_nitrc_file(file_path = file, prefix = prefix)
  10: do.call("GET", args)
  11: GET(url = "https://www.nitrc.org/ir/data/experiments/NITRC_IR_E10452/scans/T1/resources/77378/files/IXI002-Guys-0828-T1.nii.gz", 
         structure(list(method = NULL, url = NULL, headers = NULL, fields = NULL, options = NULL, 
             auth_token = NULL, output = structure(list(path = "D:\\temp\\Rtmpoht9xf/77378_IXI002-Guys-0828-T1.nii.gz", 
                 file = NULL), class = c("write_disk", "write_function"))), class = "request"))
  12: request_perform(req, hu$handle$handle)
  13: request_fetch(req$output, req$url, handle)
  14: request_fetch.write_disk(req$output, req$url, handle)
  15: curl::curl_fetch_disk(url, x$path, handle = handle)
  
  -- 2. Error: download_nitrc_file (@test-download-nitrc-file.R#2)  --------------
  Failed to connect to www.nitrc.org port 443: Connection refused
  1: testthat::expect_is(download_nitrc_file("/data/experiments/NITRC_IR_E10453/scans/DTI/resources/77382/files/IXI012-HH-1211-DTI-05.nii.gz"), 
         "character") at testthat/test-download-nitrc-file.R:2
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: download_nitrc_file("/data/experiments/NITRC_IR_E10453/scans/DTI/resources/77382/files/IXI012-HH-1211-DTI-05.nii.gz")
  5: do.call("GET", args)
  6: GET(url = "https://www.nitrc.org/ir/data/experiments/NITRC_IR_E10453/scans/DTI/resources/77382/files/IXI012-HH-1211-DTI-05.nii.gz", 
         structure(list(method = NULL, url = NULL, headers = NULL, fields = NULL, options = NULL, 
             auth_token = NULL, output = structure(list(path = "D:\\temp\\Rtmpoht9xf/IXI012-HH-1211-DTI-05.nii.gz", 
                 file = NULL), class = c("write_disk", "write_function"))), class = "request"))
  7: request_perform(req, hu$handle$handle)
  8: request_fetch(req$output, req$url, handle)
  9: request_fetch.write_disk(req$output, req$url, handle)
  10: curl::curl_fetch_disk(url, x$path, handle = handle)
  
  -- 3. Error: get_scan_params (@test-get-scan-params.R#4)  ----------------------
  Failed to connect to www.nitrc.org port 443: Connection refused
  1: testthat::expect_is(get_scan_params("NITRC_IR_E10453"), "data.frame") at testthat/test-get-scan-params.R:4
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_scan_params("NITRC_IR_E10453")
  5: is_this_public(session_ID = session_ID, project = project)
  6: GET(url_address)
  7: request_perform(req, hu$handle$handle)
  8: request_fetch(req$output, req$url, handle)
  9: request_fetch.write_memory(req$output, req$url, handle)
  10: curl::curl_fetch_memory(url, handle = handle)
  
  -- 4. Error: get_scan_resources (@test-get-scan-resources.R#4)  ----------------
  Failed to connect to www.nitrc.org port 443: Connection refused
  1: testthat::expect_is(get_scan_resources("NITRC_IR_E10453"), "data.frame") at testthat/test-get-scan-resources.R:4
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_scan_resources("NITRC_IR_E10453")
  5: is_this_public(session_ID = session_ID, project = project)
  6: GET(url_address)
  7: request_perform(req, hu$handle$handle)
  8: request_fetch(req$output, req$url, handle)
  9: request_fetch.write_memory(req$output, req$url, handle)
  10: curl::curl_fetch_memory(url, handle = handle)
  
  -- 5. Error: is_this_public (@test-is-this-public.R#3)  ------------------------
  Failed to connect to www.nitrc.org port 443: Connection refused
  1: testthat::expect_true(is_this_public("NITRC_IR_E10452")) at testthat/test-is-this-public.R:3
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: is_this_public("NITRC_IR_E10452")
  5: GET(url_address)
  6: request_perform(req, hu$handle$handle)
  7: request_fetch(req$output, req$url, handle)
  8: request_fetch.write_memory(req$output, req$url, handle)
  9: curl::curl_fetch_memory(url, handle = handle)
  
  == testthat results  ===========================================================
  OK: 25 SKIPPED: 1 FAILED: 5
  1. Error: download_nirc_dir (@test-download-nitrc-dir.R#10) 
  2. Error: download_nitrc_file (@test-download-nitrc-file.R#2) 
  3. Error: get_scan_params (@test-get-scan-params.R#4) 
  4. Error: get_scan_resources (@test-get-scan-resources.R#4) 
  5. Error: is_this_public (@test-is-this-public.R#3) 
  
  Error: testthat unit tests failed
  Execution halted