Running ‘testthat.R’ [167s/236s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(WhatsR)
  > 
  > test_check("WhatsR")
  There has been an error fetching the emojis. Please check if all the pages you want to scrape are accessible and if the XPath is up to date.
  This is the original error message:
  'download_emoji()' caused an error and will return NULL. Subsequent tests will be skipped
  i Map tiles by Stamen Design, under CC BY 3.0. Data by OpenStreetMap, under ODbL.
  i Map tiles by Stamen Design, under CC BY 3.0. Data by OpenStreetMap, under ODbL.
  i Map tiles by Stamen Design, under CC BY 3.0. Data by OpenStreetMap, under ODbL.
  i Map tiles by Stamen Design, under CC BY 3.0. Data by OpenStreetMap, under ODbL.
  [ FAIL 1 | WARN 10 | SKIP 1 | PASS 284 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • empty test (1): 'test-WhatsR-tests.R:6:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-WhatsR-tests.R:1061:3'): Plotting Emoji ────────────────────────
  Error in `grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, 
      resolveHJust(x$just, x$hjust), resolveVJust(x$just, x$vjust), 
      x$rot, as.numeric(NA))`: conversion failure on '😄' in 'mbcsToSbcs': for 😄
  Backtrace:
       ▆
    1. ├─WhatsR::plot_emoji(...) at test-WhatsR-tests.R:1061:2
    2. │ ├─base::print(out)
    3. │ └─ggplot2:::print.ggplot(out)
    4. │   ├─grid::grid.draw(gtable)
    5. │   └─grid:::grid.draw.gTree(gtable)
    6. │     └─grDevices::recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
    7. ├─grid:::drawGTree(x)
    8. │ ├─grid::grid.draw(x$children[[i]], recording = FALSE)
    9. │ └─grid:::grid.draw.gTree(x$children[[i]], recording = FALSE)
   10. │   └─grDevices::recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
   11. ├─grid:::drawGTree(x)
   12. │ ├─grid::grid.draw(x$children[[i]], recording = FALSE)
   13. │ └─grid:::grid.draw.gTree(x$children[[i]], recording = FALSE)
   14. │   └─grDevices::recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
   15. ├─grid:::drawGTree(x)
   16. │ ├─grid::grid.draw(x$children[[i]], recording = FALSE)
   17. │ └─grid:::grid.draw.gTree(x$children[[i]], recording = FALSE)
   18. │   └─grDevices::recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
   19. ├─grid:::drawGTree(x)
   20. │ ├─grid::grid.draw(x$children[[i]], recording = FALSE)
   21. │ └─grid:::grid.draw.gTree(x$children[[i]], recording = FALSE)
   22. │   └─grDevices::recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
   23. ├─grid:::drawGTree(x)
   24. │ ├─grid::grid.draw(x$children[[i]], recording = FALSE)
   25. │ └─grid:::grid.draw.grob(x$children[[i]], recording = FALSE)
   26. │   └─grDevices::recordGraphics(drawGrob(x), list(x = x), getNamespace("grid"))
   27. ├─grid:::drawGrob(x)
   28. │ ├─grid:::preDraw(x)
   29. │ └─grid:::preDraw.grob(x)
   30. │   └─grid:::pushvpgp(x)
   31. │     ├─grid:::pushgrobvp(x$vp)
   32. │     └─grid:::pushgrobvp.viewport(x$vp)
   33. │       └─grid::pushViewport(vp, recording = FALSE)
   34. │         └─base::lapply(vps, push.vp, recording)
   35. │           ├─grid (local) FUN(X[[i]], ...)
   36. │           └─grid:::push.vp.viewport(X[[i]], ...)
   37. │             └─grid:::grid.Call.graphics(C_setviewport, vp, TRUE)
   38. └─grid (local) `<fn>`(`<text>`)
   39.   ├─grid::widthDetails(x)
   40.   └─grid:::widthDetails.text(x)
   41.     └─grid:::grid.Call(...)
  
  [ FAIL 1 | WARN 10 | SKIP 1 | PASS 284 ]
  Error: Test failures
  Execution halted