Running ‘stub.R’ [0s/1s]
  Running ‘testthat.R’ [32s/33s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(osmplotr)
  Data (c) OpenStreetMap contributors, ODbL 1.0. http://www.openstreetmap.org/copyright
  > 
  > test_check("osmplotr")
  Downloading and extracting OSM data for 1 structures ...
  
    |                                                                            
    |                                                                      |   0%
    |                                                                            
    |======================================================================| 100%
  That took 0.002s
  ── 1. Error: print_osm_map (@test-print-map.R#20)  ─────────────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_silent(print_osm_map(map, width = 5, height = 4, filename = fname, units = "in")) at testthat/test-print-map.R:20
  2: quasi_capture(enquo(object), evaluate_promise)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withr::with_output_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  5: force(code)
  6: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  7: withVisible(code)
  8: eval_bare(get_expr(quo), get_env(quo))
  9: print_osm_map(map, width = 5, height = 4, filename = fname, units = "in")
  10: print(map)
  ...
  16: preDraw(x)
  17: preDraw.gTree(x)
  18: pushvpgp(x)
  19: pushgrobvp(x$vp)
  20: pushgrobvp.viewport(x$vp)
  21: pushViewport(vp, recording = FALSE)
  22: lapply(vps, push.vp, recording)
  23: FUN(X[[i]], ...)
  24: push.vp.viewport(X[[i]], ...)
  25: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 204 SKIPPED: 0 FAILED: 1
  1. Error: print_osm_map (@test-print-map.R#20) 
  
  Error: testthat unit tests failed
  Execution halted