CRAN Package Check Results for Package birdnik

Last updated on 2019-02-19 07:49:02 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.1.1 1.50 18.99 20.49 ERROR
r-devel-linux-x86_64-debian-gcc 0.1.1 1.21 15.40 16.61 ERROR
r-devel-linux-x86_64-fedora-clang 0.1.1 26.34 ERROR
r-devel-linux-x86_64-fedora-gcc 0.1.1 24.39 ERROR
r-devel-windows-ix86+x86_64 0.1.1 4.00 36.00 40.00 OK
r-patched-linux-x86_64 0.1.1 1.04 17.96 19.00 ERROR
r-patched-solaris-x86 0.1.1 31.50 ERROR
r-release-linux-x86_64 0.1.1 0.91 18.07 18.98 ERROR
r-release-windows-ix86+x86_64 0.1.1 2.00 54.00 56.00 ERROR
r-release-osx-x86_64 0.1.1 OK
r-oldrel-windows-ix86+x86_64 0.1.1 3.00 37.00 40.00 OK
r-oldrel-osx-x86_64 0.1.1 OK

Check Details

Version: 0.1.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [1s/6s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(birdnik)
     Loading required package: httr
     >
     > test_check("birdnik")
     ── 1. Error: frequency retrieval works (@test_birdnik.R#37) ───────────────────
     Too Many Requests (RFC 6585) (HTTP 429).
     1: word_frequency(key = key, words = c("cat", "dog")) at testthat/test_birdnik.R:37
     2: do.call("rbind", lapply(param, function(x, key, ...) {
     single_result <- query(key, x, ...)
     frequencies <- unlist(single_result$frequency)
     return(data.frame(word = single_result$word, year = frequencies[names(frequencies) ==
     "year"], count = frequencies[names(frequencies) == "count"], stringsAsFactors = FALSE))
     }, key = key, ...))
     3: lapply(param, function(x, key, ...) {
     single_result <- query(key, x, ...)
     frequencies <- unlist(single_result$frequency)
     return(data.frame(word = single_result$word, year = frequencies[names(frequencies) ==
     "year"], count = frequencies[names(frequencies) == "count"], stringsAsFactors = FALSE))
     }, key = key, ...)
     4: FUN(X[[i]], ...)
     5: query(key, x, ...)
     6: httr::stop_for_status(result)
    
     ── 2. Error: bigram retrieval works (@test_birdnik.R#44) ──────────────────────
     Too Many Requests (RFC 6585) (HTTP 429).
     1: word_bigrams(key = key, words = c("cat", "dog")) at testthat/test_birdnik.R:44
     2: do.call("rbind", mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE))
     3: mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE)
     4: (function (param, word, key, ...)
     {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     })(param = dots[[1L]][[1L]], word = dots[[2L]][[1L]], key = dots[[3L]][[1L]])
     5: query(key, param, ...)
     6: httr::stop_for_status(result)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 13 SKIPPED: 0 FAILED: 2
     1. Error: frequency retrieval works (@test_birdnik.R#37)
     2. Error: bigram retrieval works (@test_birdnik.R#44)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.1.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [1s/6s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(birdnik)
     Loading required package: httr
     >
     > test_check("birdnik")
     ── 1. Error: bigram retrieval works (@test_birdnik.R#44) ──────────────────────
     Too Many Requests (RFC 6585) (HTTP 429).
     1: word_bigrams(key = key, words = c("cat", "dog")) at testthat/test_birdnik.R:44
     2: do.call("rbind", mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE))
     3: mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE)
     4: (function (param, word, key, ...)
     {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     })(param = dots[[1L]][[2L]], word = dots[[2L]][[2L]], key = dots[[3L]][[1L]])
     5: query(key, param, ...)
     6: httr::stop_for_status(result)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 16 SKIPPED: 0 FAILED: 1
     1. Error: bigram retrieval works (@test_birdnik.R#44)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.1.1
Check: tests
Result: ERROR
     Running ‘testthat.R’
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(birdnik)
     Loading required package: httr
     >
     > test_check("birdnik")
     ── 1. Error: frequency retrieval works (@test_birdnik.R#37) ───────────────────
     Too Many Requests (RFC 6585) (HTTP 429).
     1: word_frequency(key = key, words = c("cat", "dog")) at testthat/test_birdnik.R:37
     2: do.call("rbind", lapply(param, function(x, key, ...) {
     single_result <- query(key, x, ...)
     frequencies <- unlist(single_result$frequency)
     return(data.frame(word = single_result$word, year = frequencies[names(frequencies) ==
     "year"], count = frequencies[names(frequencies) == "count"], stringsAsFactors = FALSE))
     }, key = key, ...))
     3: lapply(param, function(x, key, ...) {
     single_result <- query(key, x, ...)
     frequencies <- unlist(single_result$frequency)
     return(data.frame(word = single_result$word, year = frequencies[names(frequencies) ==
     "year"], count = frequencies[names(frequencies) == "count"], stringsAsFactors = FALSE))
     }, key = key, ...)
     4: FUN(X[[i]], ...)
     5: query(key, x, ...)
     6: httr::stop_for_status(result)
    
     ── 2. Error: bigram retrieval works (@test_birdnik.R#44) ──────────────────────
     Too Many Requests (RFC 6585) (HTTP 429).
     1: word_bigrams(key = key, words = c("cat", "dog")) at testthat/test_birdnik.R:44
     2: do.call("rbind", mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE))
     3: mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE)
     4: (function (param, word, key, ...)
     {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     })(param = dots[[1L]][[1L]], word = dots[[2L]][[1L]], key = dots[[3L]][[1L]])
     5: query(key, param, ...)
     6: httr::stop_for_status(result)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 13 SKIPPED: 0 FAILED: 2
     1. Error: frequency retrieval works (@test_birdnik.R#37)
     2. Error: bigram retrieval works (@test_birdnik.R#44)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.1.1
Check: tests
Result: ERROR
     Running ‘testthat.R’
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(birdnik)
     Loading required package: httr
     >
     > test_check("birdnik")
     ── 1. Error: bigram retrieval works (@test_birdnik.R#44) ──────────────────────
     Too Many Requests (RFC 6585) (HTTP 429).
     1: word_bigrams(key = key, words = c("cat", "dog")) at testthat/test_birdnik.R:44
     2: do.call("rbind", mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE))
     3: mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE)
     4: (function (param, word, key, ...)
     {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     })(param = dots[[1L]][[1L]], word = dots[[2L]][[1L]], key = dots[[3L]][[1L]])
     5: query(key, param, ...)
     6: httr::stop_for_status(result)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 16 SKIPPED: 0 FAILED: 1
     1. Error: bigram retrieval works (@test_birdnik.R#44)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.1.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [1s/6s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(birdnik)
     Loading required package: httr
     >
     > test_check("birdnik")
     ── 1. Error: bigram retrieval works (@test_birdnik.R#44) ──────────────────────
     Too Many Requests (RFC 6585) (HTTP 429).
     1: word_bigrams(key = key, words = c("cat", "dog")) at testthat/test_birdnik.R:44
     2: do.call("rbind", mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE))
     3: mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE)
     4: (function (param, word, key, ...)
     {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     })(param = dots[[1L]][[1L]], word = dots[[2L]][[1L]], key = dots[[3L]][[1L]])
     5: query(key, param, ...)
     6: httr::stop_for_status(result)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 16 SKIPPED: 0 FAILED: 1
     1. Error: bigram retrieval works (@test_birdnik.R#44)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-patched-linux-x86_64

Version: 0.1.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [2s/15s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(birdnik)
     Loading required package: httr
     >
     > test_check("birdnik")
     ── 1. Error: bigram retrieval works (@test_birdnik.R#44) ──────────────────────
     Too Many Requests (RFC 6585) (HTTP 429).
     1: word_bigrams(key = key, words = c("cat", "dog")) at testthat/test_birdnik.R:44
     2: do.call("rbind", mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE))
     3: mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE)
     4: (function (param, word, key, ...)
     {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     })(param = dots[[1L]][[2L]], word = dots[[2L]][[2L]], key = dots[[3L]][[1L]])
     5: query(key, param, ...)
     6: httr::stop_for_status(result)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 16 SKIPPED: 0 FAILED: 1
     1. Error: bigram retrieval works (@test_birdnik.R#44)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-patched-solaris-x86

Version: 0.1.1
Check: tests
Result: ERROR
     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: bigram retrieval works (@test_birdnik.R#44) ──────────────────────
     Too Many Requests (RFC 6585) (HTTP 429).
     1: word_bigrams(key = key, words = c("cat", "dog")) at testthat/test_birdnik.R:44
     2: do.call("rbind", mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE))
     3: mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE)
     4: (function (param, word, key, ...)
     {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     })(param = dots[[1L]][[2L]], word = dots[[2L]][[2L]], key = dots[[3L]][[1L]])
     5: query(key, param, ...)
     6: httr::stop_for_status(result)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 16 SKIPPED: 0 FAILED: 1
     1. Error: bigram retrieval works (@test_birdnik.R#44)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-release-linux-x86_64

Version: 0.1.1
Check: tests
Result: ERROR
     Running 'testthat.R' [7s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(birdnik)
     Loading required package: httr
     >
     > test_check("birdnik")
     -- 1. Error: bigram retrieval works (@test_birdnik.R#44) ----------------------
     Too Many Requests (RFC 6585) (HTTP 429).
     1: word_bigrams(key = key, words = c("cat", "dog")) at testthat/test_birdnik.R:44
     2: do.call("rbind", mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE))
     3: mapply(function(param, word, key, ...) {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     }, param = param, word = words, key = key, ..., SIMPLIFY = FALSE, USE.NAMES = FALSE)
     4: (function (param, word, key, ...)
     {
     result <- query(key, param, ...)
     if (!length(result)) {
     return(data.frame(word = word, first_gram = NA, second_gram = NA, mi = NA,
     wlmi = NA, stringsAsFactors = FALSE))
     }
     result <- unlist(result)
     return(data.frame(word = word, first_gram = unname(result[names(result) == "gram1"]),
     second_gram = unname(result[names(result) == "gram2"]), mi = as.numeric(unname(result[names(result) ==
     "mi"])), wlmi = as.numeric(unname(result[names(result) == "wlmi"])),
     stringsAsFactors = FALSE))
     })(param = dots[[1L]][[2L]], word = dots[[2L]][[2L]], key = dots[[3L]][[1L]])
     5: query(key, param, ...)
     6: httr::stop_for_status(result)
    
     == testthat results ===========================================================
     OK: 16 SKIPPED: 0 FAILED: 1
     1. Error: bigram retrieval works (@test_birdnik.R#44)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-release-windows-ix86+x86_64