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 |
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