Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(wsyn)
  
  Attaching package: 'wsyn'
  
  The following object is masked from 'package:stats':
  
      power
  
  > 
  > test_check("wsyn")
  [ FAIL 1 | WARN 2 | SKIP 8 | PASS 931 ]
  
  ══ Skipped tests (8) ═══════════════════════════════════════════════════════════
  • On CRAN (8): 'tests_plotmag.R:30:3', 'tests_plotmag.R:86:3',
    'tests_plotmag.R:229:3', 'tests_plotmap.R:53:3', 'tests_plotphase.R:17:3',
    'tests_plotphase.R:63:3', 'tests_plotrank.R:56:3', 'tests_plotrank.R:110:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('tests_wmf_methods.R:13:3'): test print.wmf ──────────────────────────
  Error in `file(file, if (append) "a" else "w")`: cannot open the connection
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(capture_output(print(obj1)), "wmf object:\ntimes, a length 35 numeric vector:\n1 2 3 4 5 ... 31 32 33 34 35 \nNumber of sampling locations: 10 \ntimescales, a length 41 numeric vector:\n2 2.1 2.205 2.31525 2.4310125 ... 11.5836322719437 12.1628138855409 12.770954579818 13.4095023088089 14.0799774242493 \nvalues, a 35 by 41 matrix, upper left to four digits is:\n             [,1]            [,2]            [,3]            [,4]\n[1,]     NaN+NaNi     NaN+   NaNi     NaN+   NaNi     NaN+   NaNi\n[2,]     NaN+NaNi     NaN+   NaNi     NaN+   NaNi     NaN+   NaNi\n[3,]     NaN+NaNi     NaN+   NaNi     NaN+   NaNi     NaN+   NaNi\n[4,]  0.0779+  0i  0.0763+0.1036i  0.0944+0.1990i  0.1269+0.2798i\n[5,] -0.2036+  0i -0.1994-0.0426i -0.2280-0.0817i -0.2801-0.1123i\n                [,5]\n[1,]     NaN+   NaNi\n[2,]     NaN+   NaNi\n[3,]     NaN+   NaNi\n[4,]  0.1621+0.3384i\n[5,] -0.3357-0.1299i\nwtopt: scale.min=2; scale.max.input=NULL; sigma=1.05; f0=1") at tests_wmf_methods.R:13:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─testthat::capture_output(print(obj1))
    5.   └─testthat::capture_output_lines(code, print, width = width)
    6.     └─testthat:::eval_with_output(code, print = print, width = width)
    7.       └─withr::with_output_sink(path, withVisible(code))
    8.         └─withr:::set_output_sink(file = new, append = append, split = split)
    9.           └─withr:::output_sink(file = file, append = append, split = split)
   10.             └─base::sink(file = file, append = append, type = "output", split = split)
   11.               └─base::file(file, if (append) "a" else "w")
  
  [ FAIL 1 | WARN 2 | SKIP 8 | PASS 931 ]
  Error: Test failures
  Execution halted