Running ‘testthat.R’ [8s/9s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ggwordcloud)
  Loading required package: ggplot2
  > 
  > test_check("ggwordcloud")
  ── 1. Error: geom_text_wordcloud does not crash (@test-01-ggwordcloud.R#10)  ───
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud())
     }, "ggplot") at testthat/test-01-ggwordcloud.R:10
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud()) at testthat/test-01-ggwordcloud.R:12
  5: print.ggplot(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud())
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 2. Error: geom_text_wordcloud_area does not crash (@test-01-ggwordcloud.R#21)
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggplot(data = love_words_small, aes(label = word, size = speakers)) + geom_text_wordcloud_area())
     }, "ggplot") at testthat/test-01-ggwordcloud.R:21
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggplot(data = love_words_small, aes(label = word, size = speakers)) + geom_text_wordcloud_area()) at testthat/test-01-ggwordcloud.R:23
  5: print.ggplot(ggplot(data = love_words_small, aes(label = word, size = speakers)) + 
         geom_text_wordcloud_area())
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 3. Error: geom_text_wordcloud works for all shape (@test-01-ggwordcloud.R#32)
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_silent({
         set.seed(42)
         for (i in 1:8) {
             print(print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud(shape = i)))
         }
     }) at testthat/test-01-ggwordcloud.R:32
  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(print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud(shape = i))) at testthat/test-01-ggwordcloud.R:35
  10: print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud(shape = i))
  ...
  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)
  
  ── 4. Error: geom_text_wordcloud works with a mask (@test-01-ggwordcloud.R#45)  
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud(mask = png::readPNG(system.file("extdata/hearth.png", 
             package = "ggwordcloud", mustWork = TRUE))) + scale_size_area(max_size = 10))
     }, "ggplot") at testthat/test-01-ggwordcloud.R:45
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud(mask = png::readPNG(system.file("extdata/hearth.png", 
         package = "ggwordcloud", mustWork = TRUE))) + scale_size_area(max_size = 10)) at testthat/test-01-ggwordcloud.R:47
  5: print.ggplot(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud(mask = png::readPNG(system.file("extdata/hearth.png", 
         package = "ggwordcloud", mustWork = TRUE))) + scale_size_area(max_size = 10))
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 5. Error: geom_text_wordcloud_area works with a mask (@test-01-ggwordcloud.R#
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud_area(mask = png::readPNG(system.file("extdata/hearth.png", 
             package = "ggwordcloud", mustWork = TRUE))) + scale_size_area(max_size = 10))
     }, "ggplot") at testthat/test-01-ggwordcloud.R:59
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud_area(mask = png::readPNG(system.file("extdata/hearth.png", 
         package = "ggwordcloud", mustWork = TRUE))) + scale_size_area(max_size = 10)) at testthat/test-01-ggwordcloud.R:61
  5: print.ggplot(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud_area(mask = png::readPNG(system.file("extdata/hearth.png", 
         package = "ggwordcloud", mustWork = TRUE))) + scale_size_area(max_size = 10))
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 6. Error: geom_text_wordcloud complains when the words does not fit (@test-01
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_warning({
         set.seed(42)
         print(ggplot(data = love_words_small, aes(label = word, size = 1)) + geom_text_wordcloud() + 
             scale_size_area(max_size = 20))
     }) at testthat/test-01-ggwordcloud.R:73
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: print(ggplot(data = love_words_small, aes(label = word, size = 1)) + geom_text_wordcloud() + 
         scale_size_area(max_size = 20)) at testthat/test-01-ggwordcloud.R:75
  7: print.ggplot(ggplot(data = love_words_small, aes(label = word, size = 1)) + geom_text_wordcloud() + 
         scale_size_area(max_size = 20))
  8: grid.draw(gtable)
  9: grid.draw.gTree(gtable)
  10: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  11: drawGTree(x)
  12: preDraw(x)
  13: preDraw.gTree(x)
  14: pushvpgp(x)
  15: pushgrobvp(x$vp)
  16: pushgrobvp.viewport(x$vp)
  17: pushViewport(vp, recording = FALSE)
  18: lapply(vps, push.vp, recording)
  19: FUN(X[[i]], ...)
  20: push.vp.viewport(X[[i]], ...)
  21: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 7. Error: geom_text_wordcloud complains silently when the words do not fit an
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_message({
         set.seed(42)
         print(ggplot(data = love_words_small, aes(label = word, size = 1)) + geom_text_wordcloud(rm_outside = TRUE) + 
             scale_size_area(max_size = 20))
     }) at testthat/test-01-ggwordcloud.R:85
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: print(ggplot(data = love_words_small, aes(label = word, size = 1)) + geom_text_wordcloud(rm_outside = TRUE) + 
         scale_size_area(max_size = 20)) at testthat/test-01-ggwordcloud.R:87
  7: print.ggplot(ggplot(data = love_words_small, aes(label = word, size = 1)) + geom_text_wordcloud(rm_outside = TRUE) + 
         scale_size_area(max_size = 20))
  8: grid.draw(gtable)
  9: grid.draw.gTree(gtable)
  10: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  11: drawGTree(x)
  12: preDraw(x)
  13: preDraw.gTree(x)
  14: pushvpgp(x)
  15: pushgrobvp(x$vp)
  16: pushgrobvp.viewport(x$vp)
  17: pushViewport(vp, recording = FALSE)
  18: lapply(vps, push.vp, recording)
  19: FUN(X[[i]], ...)
  20: push.vp.viewport(X[[i]], ...)
  21: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 8. Error: geom_text_wordcloud complains when one word do not fit (@test-01-gg
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_warning({
         set.seed(42)
         print(ggplot(data = love_words_small[2, ], aes(label = word, size = 1)) + geom_text_wordcloud() + 
             scale_size_area(max_size = 200))
     }) at testthat/test-01-ggwordcloud.R:97
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: print(ggplot(data = love_words_small[2, ], aes(label = word, size = 1)) + geom_text_wordcloud() + 
         scale_size_area(max_size = 200)) at testthat/test-01-ggwordcloud.R:99
  7: print.ggplot(ggplot(data = love_words_small[2, ], aes(label = word, size = 1)) + 
         geom_text_wordcloud() + scale_size_area(max_size = 200))
  8: grid.draw(gtable)
  9: grid.draw.gTree(gtable)
  10: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  11: drawGTree(x)
  12: preDraw(x)
  13: preDraw.gTree(x)
  14: pushvpgp(x)
  15: pushgrobvp(x$vp)
  16: pushgrobvp.viewport(x$vp)
  17: pushViewport(vp, recording = FALSE)
  18: lapply(vps, push.vp, recording)
  19: FUN(X[[i]], ...)
  20: push.vp.viewport(X[[i]], ...)
  21: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 9. Error: geom_text_wordcloud complains silently when one word does not fit a
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_message({
         set.seed(42)
         print(ggplot(data = love_words_small[2, ], aes(label = word, size = 1)) + geom_text_wordcloud(rm_outside = TRUE) + 
             scale_size_area(max_size = 200))
     }) at testthat/test-01-ggwordcloud.R:109
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: print(ggplot(data = love_words_small[2, ], aes(label = word, size = 1)) + geom_text_wordcloud(rm_outside = TRUE) + 
         scale_size_area(max_size = 200)) at testthat/test-01-ggwordcloud.R:111
  7: print.ggplot(ggplot(data = love_words_small[2, ], aes(label = word, size = 1)) + 
         geom_text_wordcloud(rm_outside = TRUE) + scale_size_area(max_size = 200))
  8: grid.draw(gtable)
  9: grid.draw.gTree(gtable)
  10: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  11: drawGTree(x)
  12: preDraw(x)
  13: preDraw.gTree(x)
  14: pushvpgp(x)
  15: pushgrobvp(x$vp)
  16: pushgrobvp.viewport(x$vp)
  17: pushViewport(vp, recording = FALSE)
  18: lapply(vps, push.vp, recording)
  19: FUN(X[[i]], ...)
  20: push.vp.viewport(X[[i]], ...)
  21: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 10. Error: ggwordcloud does not crash (@test-02-wrapper.R#10)  ──────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggwordcloud(love_words_small$word, love_words_small$speakers))
     }, "ggplot") at testthat/test-02-wrapper.R:10
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggwordcloud(love_words_small$word, love_words_small$speakers)) at testthat/test-02-wrapper.R:12
  5: print.ggplot(ggwordcloud(love_words_small$word, love_words_small$speakers))
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 11. Error: ggwordcloud works with random.color = TRUE (@test-02-wrapper.R#17)
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggwordcloud(love_words_small$word, love_words_small$speakers, random.color = TRUE))
     }, "ggplot") at testthat/test-02-wrapper.R:17
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggwordcloud(love_words_small$word, love_words_small$speakers, random.color = TRUE)) at testthat/test-02-wrapper.R:19
  5: print.ggplot(ggwordcloud(love_words_small$word, love_words_small$speakers, random.color = TRUE))
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 12. Error: ggwordcloud works with random.order = FALSE (@test-02-wrapper.R#24
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggwordcloud(love_words_small$word, love_words_small$speakers, random.order = FALSE))
     }, "ggplot") at testthat/test-02-wrapper.R:24
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggwordcloud(love_words_small$word, love_words_small$speakers, random.order = FALSE)) at testthat/test-02-wrapper.R:26
  5: print.ggplot(ggwordcloud(love_words_small$word, love_words_small$speakers, random.order = FALSE))
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 13. Error: ggwordcloud2 does not crash (@test-02-wrapper.R#31)  ─────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggwordcloud2(love_words_small[, c("word", "speakers")]))
     }, "ggplot") at testthat/test-02-wrapper.R:31
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggwordcloud2(love_words_small[, c("word", "speakers")])) at testthat/test-02-wrapper.R:33
  5: print.ggplot(ggwordcloud2(love_words_small[, c("word", "speakers")]))
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 14. Error: ggwordcloud2 works with random-light color (@test-02-wrapper.R#38)
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggwordcloud2(love_words_small[, c("word", "speakers")], color = "random-light"))
     }, "ggplot") at testthat/test-02-wrapper.R:38
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggwordcloud2(love_words_small[, c("word", "speakers")], color = "random-light")) at testthat/test-02-wrapper.R:40
  5: print.ggplot(ggwordcloud2(love_words_small[, c("word", "speakers")], color = "random-light"))
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 15. Error: ggwordcloud2 works with explicit colors (@test-02-wrapper.R#47)  ─
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggwordcloud2(love_words_small[, c("word", "speakers")], color = sample(c("black", 
             "red", "green"), nrow(love_words_small), replace = TRUE)))
     }, "ggplot") at testthat/test-02-wrapper.R:47
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggwordcloud2(love_words_small[, c("word", "speakers")], color = sample(c("black", 
         "red", "green"), nrow(love_words_small), replace = TRUE))) at testthat/test-02-wrapper.R:49
  5: print.ggplot(ggwordcloud2(love_words_small[, c("word", "speakers")], color = sample(c("black", 
         "red", "green"), nrow(love_words_small), replace = TRUE)))
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 16. Error: No issue with geom_text_wordcloud_area when no size is defined (@t
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud_area())
     }, "ggplot") at testthat/test-90-bugs.R:10
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud_area()) at testthat/test-90-bugs.R:12
  5: print.ggplot(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud_area())
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 17. Error: geom_text_wordcloud does not crash when shape is NA (@test-90-bugs
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_warning({
         set.seed(42)
         print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud(shape = NA))
     }) at testthat/test-90-bugs.R:17
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: print(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud(shape = NA)) at testthat/test-90-bugs.R:19
  7: print.ggplot(ggplot(data = love_words_small, aes(label = word)) + geom_text_wordcloud(shape = NA))
  8: grid.draw(gtable)
  9: grid.draw.gTree(gtable)
  10: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  11: drawGTree(x)
  12: preDraw(x)
  13: preDraw.gTree(x)
  14: pushvpgp(x)
  15: pushgrobvp(x$vp)
  16: pushgrobvp.viewport(x$vp)
  17: pushViewport(vp, recording = FALSE)
  18: lapply(vps, push.vp, recording)
  19: FUN(X[[i]], ...)
  20: push.vp.viewport(X[[i]], ...)
  21: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 18. Error: geom_text_wordcloud_area does not crash when shape is NA (@test-90
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_warning({
         set.seed(42)
         print(ggplot(data = love_words_small, aes(label = word, size = speakers)) + geom_text_wordcloud_area(shape = NA))
     }) at testthat/test-90-bugs.R:28
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: print(ggplot(data = love_words_small, aes(label = word, size = speakers)) + geom_text_wordcloud_area(shape = NA)) at testthat/test-90-bugs.R:30
  7: print.ggplot(ggplot(data = love_words_small, aes(label = word, size = speakers)) + 
         geom_text_wordcloud_area(shape = NA))
  8: grid.draw(gtable)
  9: grid.draw.gTree(gtable)
  10: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  11: drawGTree(x)
  12: preDraw(x)
  13: preDraw.gTree(x)
  14: pushvpgp(x)
  15: pushgrobvp(x$vp)
  16: pushgrobvp.viewport(x$vp)
  17: pushViewport(vp, recording = FALSE)
  18: lapply(vps, push.vp, recording)
  19: FUN(X[[i]], ...)
  20: push.vp.viewport(X[[i]], ...)
  21: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ── 19. Error: geom_text_wordcloud does not crash with empty words (@test-90-bugs
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: expect_is({
         set.seed(42)
         print(ggplot(data = lws, aes(label = word)) + geom_text_wordcloud())
     }, "ggplot") at testthat/test-90-bugs.R:41
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: print(ggplot(data = lws, aes(label = word)) + geom_text_wordcloud()) at testthat/test-90-bugs.R:43
  5: print.ggplot(ggplot(data = lws, aes(label = word)) + geom_text_wordcloud())
  6: grid.draw(gtable)
  7: grid.draw.gTree(gtable)
  8: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  9: drawGTree(x)
  10: preDraw(x)
  11: preDraw.gTree(x)
  12: pushvpgp(x)
  13: pushgrobvp(x$vp)
  14: pushgrobvp.viewport(x$vp)
  15: pushViewport(vp, recording = FALSE)
  16: lapply(vps, push.vp, recording)
  17: FUN(X[[i]], ...)
  18: push.vp.viewport(X[[i]], ...)
  19: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 0 SKIPPED: 0 FAILED: 19
  1. Error: geom_text_wordcloud does not crash (@test-01-ggwordcloud.R#10) 
  2. Error: geom_text_wordcloud_area does not crash (@test-01-ggwordcloud.R#21) 
  3. Error: geom_text_wordcloud works for all shape (@test-01-ggwordcloud.R#32) 
  4. Error: geom_text_wordcloud works with a mask (@test-01-ggwordcloud.R#45) 
  5. Error: geom_text_wordcloud_area works with a mask (@test-01-ggwordcloud.R#59) 
  6. Error: geom_text_wordcloud complains when the words does not fit (@test-01-ggwordcloud.R#73) 
  7. Error: geom_text_wordcloud complains silently when the words do not fit and the option rm_outside is set to TRUE (@test-01-ggwordcloud.R#85) 
  8. Error: geom_text_wordcloud complains when one word do not fit (@test-01-ggwordcloud.R#97) 
  9. Error: geom_text_wordcloud complains silently when one word does not fit and the option rm_outside is set to TRUE (@test-01-ggwordcloud.R#109) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted