Running ‘testthat.R’ [65s/83s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(bdsm)
  > 
  > test_check("bdsm")
  The number of the best models (top) cannot be higher than the total number of models. We set top = R (total number of regressors) and continiue :)
  [ FAIL 6 | WARN 0 | SKIP 5 | PASS 74 ]
  
  ══ Skipped tests (5) ═══════════════════════════════════════════════════════════
  • On CRAN (5): 'test-SEM_likelihood.R:13:3', 'test-SEM_likelihood.R:27:3',
    'test-SEM_likelihood.R:42:3', 'test-SEM_likelihood.R:58:3',
    'test-model_space.R:123:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-model_pmp.R:19:3'): model_pmp creates correct lists with graphs ──
  class(model_graphs[[1]]) (`actual`) not equal to c("gg", "ggplot") (`expected`).
  
  `actual`:        "ggplot2::ggplot" "ggplot" "ggplot2::gg" "S7_object" "gg"    
  `expected[2:2]`:                                                      "ggplot"
  ── Failure ('test-model_pmp.R:20:3'): model_pmp creates correct lists with graphs ──
  class(model_graphs[[2]]) (`actual`) not equal to c("gg", "ggplot") (`expected`).
  
  `actual`:        "ggplot2::ggplot" "ggplot" "ggplot2::gg" "S7_object" "gg"    
  `expected[2:2]`:                                                      "ggplot"
  ── Failure ('test-model_pmp.R:21:3'): model_pmp creates correct lists with graphs ──
  class(model_graphs[[3]]) (`actual`) not equal to c("gg", "ggplot", "ggarrange") (`expected`).
  
      actual            | expected       
  [1] "ggplot2::ggplot" -                
  [2] "ggplot"          -                
  [3] "ggplot2::gg"     -                
  [4] "S7_object"       -                
  [5] "gg"              | "gg"        [1]
                        - "ggplot"    [2]
  [6] "ggarrange"       | "ggarrange" [3]
  ── Failure ('test-model_sizes.R:19:3'): model_sizes creates correct lists with graphs ──
  class(size_graphs[[1]]) (`actual`) not equal to c("gg", "ggplot") (`expected`).
  
  `actual`:        "ggplot2::ggplot" "ggplot" "ggplot2::gg" "S7_object" "gg"    
  `expected[2:2]`:                                                      "ggplot"
  ── Failure ('test-model_sizes.R:20:3'): model_sizes creates correct lists with graphs ──
  class(size_graphs[[2]]) (`actual`) not equal to c("gg", "ggplot") (`expected`).
  
  `actual`:        "ggplot2::ggplot" "ggplot" "ggplot2::gg" "S7_object" "gg"    
  `expected[2:2]`:                                                      "ggplot"
  ── Failure ('test-model_sizes.R:21:3'): model_sizes creates correct lists with graphs ──
  class(size_graphs[[3]]) (`actual`) not equal to c("gg", "ggplot", "ggarrange") (`expected`).
  
      actual            | expected       
  [1] "ggplot2::ggplot" -                
  [2] "ggplot"          -                
  [3] "ggplot2::gg"     -                
  [4] "S7_object"       -                
  [5] "gg"              | "gg"        [1]
                        - "ggplot"    [2]
  [6] "ggarrange"       | "ggarrange" [3]
  
  [ FAIL 6 | WARN 0 | SKIP 5 | PASS 74 ]
  Error: Test failures
  Execution halted