Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(amapro)
  > 
  > test_check("amapro")
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 0 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-loca.R:13:3'): amap GeoJSON without loca ───────────────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shiny'
  Backtrace:
       ▆
    1. ├─amapro::am.item(...) at test-loca.R:13:3
    2. │ └─amapro:::.callJS()
    3. │   ├─base::Filter(function(x) !is.symbol(x), as.list(parent.frame(1)))
    4. │   │ ├─base::unlist(lapply(x, f))
    5. │   │ └─base::lapply(x, f)
    6. │   ├─base::as.list(parent.frame(1))
    7. │   └─base::as.list.environment(parent.frame(1))
    8. ├─amapro::am.item(...)
    9. │ └─amapro:::.callJS()
   10. │   ├─base::Filter(function(x) !is.symbol(x), as.list(parent.frame(1)))
   11. │   │ ├─base::unlist(lapply(x, f))
   12. │   │ └─base::lapply(x, f)
   13. │   ├─base::as.list(parent.frame(1))
   14. │   └─base::as.list.environment(parent.frame(1))
   15. ├─amapro::am.control(...)
   16. │ └─amapro:::.callJS()
   17. └─base::loadNamespace(x)
   18.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   19.     └─base (local) withOneRestart(expr, restarts[[1L]])
   20.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-loca.R:27:3'): loca GeoJSONSource scatter ──────────────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shiny'
  Backtrace:
       ▆
    1. ├─amapro::am.cmd(...) at test-loca.R:27:3
    2. │ └─"amapro" %in% class(id)
    3. ├─amapro::am.cmd(...)
    4. │ └─"amapro" %in% class(id)
    5. ├─amapro::am.cmd(...)
    6. │ └─"amapro" %in% class(id)
    7. ├─amapro::am.item(...)
    8. │ └─amapro:::.callJS()
    9. │   ├─base::Filter(function(x) !is.symbol(x), as.list(parent.frame(1)))
   10. │   │ ├─base::unlist(lapply(x, f))
   11. │   │ └─base::lapply(x, f)
   12. │   ├─base::as.list(parent.frame(1))
   13. │   └─base::as.list.environment(parent.frame(1))
   14. ├─amapro::am.item(...)
   15. │ └─amapro:::.callJS()
   16. │   ├─base::Filter(function(x) !is.symbol(x), as.list(parent.frame(1)))
   17. │   │ ├─base::unlist(lapply(x, f))
   18. │   │ └─base::lapply(x, f)
   19. │   ├─base::as.list(parent.frame(1))
   20. │   └─base::as.list.environment(parent.frame(1))
   21. ├─amapro::am.control(...)
   22. │ └─amapro:::.callJS()
   23. └─base::loadNamespace(x)
   24.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   25.     └─base (local) withOneRestart(expr, restarts[[1L]])
   26.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-loca.R:105:3'): loca PolygonLayer with lights ──────────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shiny'
  Backtrace:
       ▆
    1. ├─amapro::am.cmd(...) at test-loca.R:105:3
    2. │ └─"amapro" %in% class(id)
    3. ├─amapro::am.cmd(...)
    4. │ └─"amapro" %in% class(id)
    5. ├─amapro::am.cmd(...)
    6. │ └─"amapro" %in% class(id)
    7. ├─amapro::am.cmd(...)
    8. │ └─"amapro" %in% class(id)
    9. ├─amapro::am.cmd(...)
   10. │ └─"amapro" %in% class(id)
   11. ├─amapro::am.item(...)
   12. │ └─amapro:::.callJS()
   13. │   ├─base::Filter(function(x) !is.symbol(x), as.list(parent.frame(1)))
   14. │   │ ├─base::unlist(lapply(x, f))
   15. │   │ └─base::lapply(x, f)
   16. │   ├─base::as.list(parent.frame(1))
   17. │   └─base::as.list.environment(parent.frame(1))
   18. ├─amapro::am.item(...)
   19. │ └─amapro:::.callJS()
   20. │   ├─base::Filter(function(x) !is.symbol(x), as.list(parent.frame(1)))
   21. │   │ ├─base::unlist(lapply(x, f))
   22. │   │ └─base::lapply(x, f)
   23. │   ├─base::as.list(parent.frame(1))
   24. │   └─base::as.list.environment(parent.frame(1))
   25. ├─amapro::am.item(...)
   26. │ └─amapro:::.callJS()
   27. │   ├─base::Filter(function(x) !is.symbol(x), as.list(parent.frame(1)))
   28. │   │ ├─base::unlist(lapply(x, f))
   29. │   │ └─base::lapply(x, f)
   30. │   ├─base::as.list(parent.frame(1))
   31. │   └─base::as.list.environment(parent.frame(1))
   32. ├─amapro::am.item(...)
   33. │ └─amapro:::.callJS()
   34. │   ├─base::Filter(function(x) !is.symbol(x), as.list(parent.frame(1)))
   35. │   │ ├─base::unlist(lapply(x, f))
   36. │   │ └─base::lapply(x, f)
   37. │   ├─base::as.list(parent.frame(1))
   38. │   └─base::as.list.environment(parent.frame(1))
   39. ├─amapro::am.control(...)
   40. │ └─amapro:::.callJS()
   41. └─base::loadNamespace(x)
   42.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   43.     └─base (local) withOneRestart(expr, restarts[[1L]])
   44.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-loca.R:137:3'): amap jsonlite ──────────────────────────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'shiny'
  Backtrace:
      ▆
   1. ├─amapro::am.inspect(...) at test-loca.R:137:3
   2. ├─amapro::am.control(...)
   3. │ └─amapro:::.callJS()
   4. └─base::loadNamespace(x)
   5.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   6.     └─base (local) withOneRestart(expr, restarts[[1L]])
   7.       └─base (local) doWithOneRestart(return(expr), restart)
  
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 0 ]
  Error: Test failures
  Execution halted