Running 'testthat.R' [25s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(circumplex)
  > 
  > test_check("circumplex")
  -- 1. Error: Measure-contrast SSM plot is correct (@test-ssm_visualization.R#31)
  ICU init failed: U_FILE_ACCESS_ERROR
  1: ssm_plot(res, xy = FALSE) at testthat/test-ssm_visualization.R:31
  2: ssm_plot_contrast(.ssm_object, fontsize = fontsize, ...)
  3: dplyr::mutate(res, d_uci = ifelse(d_uci < d_lci && d_uci < 180, circ_dist(d_uci), 
         d_uci), d_lci = ifelse(d_lci > d_uci && d_lci > 180, circ_dist(d_lci), d_lci)) %>% 
         tidyr::gather(key, value, -label, -fit) %>% tidyr::extract(key, c("Parameter", 
         "Type"), "(.)_(...)") %>% tidyr::spread(Type, value) %>% dplyr::rename(Difference = est, 
         Contrast = label) %>% dplyr::mutate(Parameter = factor(Parameter, levels = c("e", 
         "x", "y", "a", "d")))
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: function_list[[i]](value)
  10: tidyr::extract(., key, c("Parameter", "Type"), "(.)_(...)")
  11: extract.data.frame(., key, c("Parameter", "Type"), "(.)_(...)")
  12: stringi::stri_match_first_regex
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  -- 2. Error: Group-contrast correlation-based SSM plot is correct (@test-ssm_vis
  ICU init failed: U_FILE_ACCESS_ERROR
  1: ssm_plot(res) at testthat/test-ssm_visualization.R:44
  2: ssm_plot_contrast(.ssm_object, fontsize = fontsize, ...)
  3: dplyr::mutate(res, d_uci = ifelse(d_uci < d_lci && d_uci < 180, circ_dist(d_uci), 
         d_uci), d_lci = ifelse(d_lci > d_uci && d_lci > 180, circ_dist(d_lci), d_lci)) %>% 
         tidyr::gather(key, value, -label, -fit) %>% tidyr::extract(key, c("Parameter", 
         "Type"), "(.)_(...)") %>% tidyr::spread(Type, value) %>% dplyr::rename(Difference = est, 
         Contrast = label) %>% dplyr::mutate(Parameter = factor(Parameter, levels = c("e", 
         "x", "y", "a", "d")))
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: function_list[[i]](value)
  10: tidyr::extract(., key, c("Parameter", "Type"), "(.)_(...)")
  11: extract.data.frame(., key, c("Parameter", "Type"), "(.)_(...)")
  12: stringi::stri_match_first_regex
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  == testthat results  ===========================================================
  OK: 182 SKIPPED: 6 FAILED: 2
  1. Error: Measure-contrast SSM plot is correct (@test-ssm_visualization.R#31) 
  2. Error: Group-contrast correlation-based SSM plot is correct (@test-ssm_visualization.R#44) 
  
  Error: testthat unit tests failed
  Execution halted