Running ‘testthat.R’ [1s/7s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(birdnik)
  Loading required package: httr
  > 
  > test_check("birdnik")
  ── 1. Error: Example retrieval works (@test_birdnik.R#21)  ─────────────────────
  Too Many Requests (RFC 6585) (HTTP 429).
  1: related_words(key = key, words = c("cat", "madeupkey")) at testthat/test_birdnik.R:21
  2: do.call("rbind", mapply(function(param, key, word, ...) {
         result <- query(key, param, ...)
         if (!length(result)) {
             return(data.frame(word = word, type = NA, related_word = NA, stringsAsFactors = FALSE))
         }
         return(do.call("rbind", lapply(result, function(entry, word) {
             return(data.frame(word = word, type = unname(unlist(entry$relationshipType)), 
                 related_word = unname(unlist(entry$words)), stringsAsFactors = FALSE))
         }, word = word)))
     }, param = param, key = key, word = words, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE))
  3: mapply(function(param, key, word, ...) {
         result <- query(key, param, ...)
         if (!length(result)) {
             return(data.frame(word = word, type = NA, related_word = NA, stringsAsFactors = FALSE))
         }
         return(do.call("rbind", lapply(result, function(entry, word) {
             return(data.frame(word = word, type = unname(unlist(entry$relationshipType)), 
                 related_word = unname(unlist(entry$words)), stringsAsFactors = FALSE))
         }, word = word)))
     }, param = param, key = key, word = words, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE)
  4: (function (param, key, word, ...) 
     {
         result <- query(key, param, ...)
         if (!length(result)) {
             return(data.frame(word = word, type = NA, related_word = NA, stringsAsFactors = FALSE))
         }
         return(do.call("rbind", lapply(result, function(entry, word) {
             return(data.frame(word = word, type = unname(unlist(entry$relationshipType)), 
                 related_word = unname(unlist(entry$words)), stringsAsFactors = FALSE))
         }, word = word)))
     })(param = dots[[1L]][[1L]], key = dots[[2L]][[1L]], word = dots[[3L]][[1L]])
  5: query(key, param, ...)
  6: httr::stop_for_status(result)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 15 SKIPPED: 0 FAILED: 1
  1. Error: Example retrieval works (@test_birdnik.R#21) 
  
  Error: testthat unit tests failed
  Execution halted