Running 'testthat.R' [27s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(uFTIR)
  Loading required package: parallel
  Warning message:
  multiple methods tables found for 'plot' 
  > 
  > test_check("uFTIR")
  -- 1. Error: Tile can be plotted (@test-plot_methods.R#3)  ---------------------
  cannot coerce type 'S4' to vector of type 'double'
  Backtrace:
    1. testthat::expect_null(plot(x))
    5. uFTIR::plot(x)
    6. uFTIR::plot_tile(x, ...)
    9. graphics::plot.default(m, ...)
   10. grDevices::xy.coords(x, y, xlabel, ylabel, log)
  
  -- 2. Error: SpectralPack can be plotted (@test-plot_methods.R#9)  -------------
  cannot coerce type 'S4' to vector of type 'double'
  Backtrace:
    1. testthat::expect_null(plot(x))
    5. uFTIR::plot(x)
    6. uFTIR::plot_tile(x, ...)
    9. graphics::plot.default(m, ...)
   10. grDevices::xy.coords(x, y, xlabel, ylabel, log)
  
  -- 3. Error: SAM can be plotted (@test-plot_methods.R#16)  ---------------------
  cannot coerce type 'S4' to vector of type 'double'
  Backtrace:
    1. testthat::expect_null(plot(x))
    5. uFTIR::plot(x)
    6. uFTIR::plot_tile(x, ...)
    9. graphics::plot.default(m, ...)
   10. grDevices::xy.coords(x, y, xlabel, ylabel, log)
  
  -- 4. Error: Smooth can be plotted (@test-plot_methods.R#24)  ------------------
  cannot coerce type 'S4' to vector of type 'double'
  Backtrace:
    1. testthat::expect_null(plot(x))
    5. uFTIR::plot(x)
    6. uFTIR::plot_tile(x, ...)
    9. graphics::plot.default(m, ...)
   10. grDevices::xy.coords(x, y, xlabel, ylabel, log)
  
  -- 5. Error: clipper can be plotted (@test-plot_methods.R#33)  -----------------
  cannot coerce type 'S4' to vector of type 'double'
  Backtrace:
    1. testthat::expect_null(plot(x))
    5. uFTIR::plot(x)
    6. uFTIR::plot_tile(x, ...)
    9. graphics::plot.default(m, ...)
   10. grDevices::xy.coords(x, y, xlabel, ylabel, log)
  
  -- 6. Error: clipper can be plotted (@test-plot_methods.R#42)  -----------------
  cannot coerce type 'S4' to vector of type 'double'
  Backtrace:
   1. testthat::expect_null(highlight_substance(x, 5))
   4. uFTIR::highlight_substance(x, 5)
   5. uFTIR::plot_tile(x, match_uFTIR = FALSE, ...)
   8. graphics::plot.default(m, ...)
   9. grDevices::xy.coords(x, y, xlabel, ylabel, log)
  
  -- 7. Error: get_profile can plot as side effect (@test-tile_functions.R#90)  --
  cannot coerce type 'S4' to vector of type 'double'
  Backtrace:
   1. uFTIR::get_profile_tile(...)
   2. uFTIR::highlight_substance(buff_tarjet_sub, dst_cluster, ...)
   3. uFTIR::plot_tile(x, match_uFTIR = FALSE, ...)
   6. graphics::plot.default(m, ...)
   7. grDevices::xy.coords(x, y, xlabel, ylabel, log)
  
  == testthat results  ===========================================================
  [ OK: 25 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 7 ]
  1. Error: Tile can be plotted (@test-plot_methods.R#3) 
  2. Error: SpectralPack can be plotted (@test-plot_methods.R#9) 
  3. Error: SAM can be plotted (@test-plot_methods.R#16) 
  4. Error: Smooth can be plotted (@test-plot_methods.R#24) 
  5. Error: clipper can be plotted (@test-plot_methods.R#33) 
  6. Error: clipper can be plotted (@test-plot_methods.R#42) 
  7. Error: get_profile can plot as side effect (@test-tile_functions.R#90) 
  
  Error: testthat unit tests failed
  Execution halted