Running 'testthat.R' [41s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(DSAIRM)
  Loading required package: shiny
  Welcome to the DSAIRM package. Type dsairmmenu() to get started.
  > 
  > test_check("DSAIRM")
  Error in seq.default(tstart, tfinal, by = dt) : 
    wrong sign in 'by' argument
  Error in adaptivetau::ssa.adaptivetau(init.values = Y0, transitions = transitions,  : 
    initial value for variable 3 must be positive (currently -10)
  Error in eval(generate_fctcall(modelsettings)) : 
    attempt to apply non-function
  == Warnings ====================================================================
  -- Warning (test-generate_usplot.R:56:13): running US analysis app returns the proper plots --
  Using shapes for an ordinal variable is not advised
  Backtrace:
    1. testthat::expect_is(generate_ggplot(result), "gtable") test-generate_usplot.R:56:12
    4. DSAIRM::generate_ggplot(result)
    5. gridExtra::grid.arrange(grobs = allplots, ncol = res[[1]]$ncols)
    6. gridExtra::arrangeGrob(...)
    7. base::lapply(grobs[toconv], ggplot2::ggplotGrob)
    8. ggplot2:::FUN(X[[i]], ...)
   11. ggplot2:::ggplot_build.ggplot(x)
   12. ggplot2:::by_layer(function(l, d) l$compute_aesthetics(d, plot))
   13. ggplot2:::f(l = layers[[i]], d = data[[i]])
   14. l$compute_aesthetics(d, plot)
   15. ggplot2:::f(..., self = self)
   16. ggplot2:::scales_add_defaults(...)
   19. ggplot2:::find_scale(aes, datacols[[aes]], env)
   20. ggplot2:::scale_f()
  -- Warning (test-generate_usplot.R:56:13): running US analysis app returns the proper plots --
  Using shapes for an ordinal variable is not advised
  Backtrace:
    1. testthat::expect_is(generate_ggplot(result), "gtable") test-generate_usplot.R:56:12
    4. DSAIRM::generate_ggplot(result)
    5. gridExtra::grid.arrange(grobs = allplots, ncol = res[[1]]$ncols)
    6. gridExtra::arrangeGrob(...)
    7. base::lapply(grobs[toconv], ggplot2::ggplotGrob)
    8. ggplot2:::FUN(X[[i]], ...)
   11. ggplot2:::ggplot_build.ggplot(x)
   12. ggplot2:::by_layer(function(l, d) l$compute_aesthetics(d, plot))
   13. ggplot2:::f(l = layers[[i]], d = data[[i]])
   14. l$compute_aesthetics(d, plot)
   15. ggplot2:::f(..., self = self)
   16. ggplot2:::scales_add_defaults(...)
   19. ggplot2:::find_scale(aes, datacols[[aes]], env)
   20. ggplot2:::scale_f()
  -- Warning (test-generate_usplot.R:56:13): running US analysis app returns the proper plots --
  Using shapes for an ordinal variable is not advised
  Backtrace:
    1. testthat::expect_is(generate_ggplot(result), "gtable") test-generate_usplot.R:56:12
    4. DSAIRM::generate_ggplot(result)
    5. gridExtra::grid.arrange(grobs = allplots, ncol = res[[1]]$ncols)
    6. gridExtra::arrangeGrob(...)
    7. base::lapply(grobs[toconv], ggplot2::ggplotGrob)
    8. ggplot2:::FUN(X[[i]], ...)
   11. ggplot2:::ggplot_build.ggplot(x)
   12. ggplot2:::by_layer(function(l, d) l$compute_aesthetics(d, plot))
   13. ggplot2:::f(l = layers[[i]], d = data[[i]])
   14. l$compute_aesthetics(d, plot)
   15. ggplot2:::f(..., self = self)
   16. ggplot2:::scales_add_defaults(...)
   19. ggplot2:::find_scale(aes, datacols[[aes]], env)
   20. ggplot2:::scale_f()
  -- Warning (test-run_model.R:57:13): run_model correctly runs different models --
  argument is not a function
  Backtrace:
   1. DSAIRM::run_model(modelsettings) test-run_model.R:57:12
   8. DSAIRM::generate_fctcall(modelsettings)
   9. base::formals(currentmodel)
  
  == Failed tests ================================================================
  -- Error (test-generate_shinyinput.R:21:13): generate_shinyinput correctly produces a shiny input structure --
  Error: 'nchar()' requires a character vector
  Backtrace:
      x
   1. \-base::nchar(appsettings$simfunction2) test-generate_shinyinput.R:21:12
  -- Error (test-run_model.R:58:13): run_model correctly runs different models ---
  Error: $ operator is invalid for atomic vectors
  
  [ FAIL 2 | WARN 4 | SKIP 0 | PASS 54 ]
  Error: Test failures
  Execution halted