CRAN Package Check Results for Package rfishbase

Last updated on 2017-06-25 16:52:28.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 2.1.2 3.62 37.96 41.58 ERROR
r-devel-linux-x86_64-debian-gcc 2.1.2 3.45 44.67 48.13 OK
r-devel-linux-x86_64-fedora-clang 2.1.2 77.28 NOTE
r-devel-linux-x86_64-fedora-gcc 2.1.2 42.73 NOTE
r-devel-windows-ix86+x86_64 2.1.2 13.00 78.00 91.00 OK
r-patched-linux-x86_64 2.1.2 3.39 51.84 55.23 ERROR
r-patched-solaris-sparc 2.1.2 431.40 NOTE
r-patched-solaris-x86 2.1.2 100.30 NOTE
r-release-linux-x86_64 2.1.2 3.46 42.83 46.29 OK
r-release-windows-ix86+x86_64 2.1.2 13.00 100.00 113.00 ERROR
r-release-osx-x86_64 2.1.2 NOTE
r-oldrel-windows-ix86+x86_64 2.1.2 9.00 99.00 108.00 OK
r-oldrel-osx-x86_64 2.1.2 NOTE

Check Details

Version: 2.1.2
Check: tests
Result: ERROR
     Running ‘testthat.R’ [1s/4s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(rfishbase)
     > options(is_test = TRUE) # set user-agent to distinguish automated tests
     > test_check("rfishbase")
     1. Error: Custom queries give desired result (@test_endpoint.R#10) -------------
     Couldn't connect to server
     1: country(query = list(C_Code = 440)) at testthat/test_endpoint.R:10
     2: dplyr::bind_rows(lapply(codes, function(code) {
     if (nchar(code) == 0 && limit > 5000) {
     k <- 0
     data <- {
     }
     while (k < limit) {
     args <- list(SpecCode = code, limit = as.integer(min(5000, limit - k)),
     offset = as.integer(k + 1))
     if (!is.null(fields))
     args <- c(args, fields = paste(c("SpecCode", fields), collapse = ","))
     if (!is.null(query))
     args <- c(args, query)
     bad_tables = c("diet", "ecosystem", "maturity", "morphdat", "morphmet",
     "popchar", "poplf")
     if (endpt %in% bad_tables) {
     names(args)[names(args) == "SpecCode"] = "Speccode"
     }
     resp <- httr::GET(paste0(server, "/", endpt), query = args, ..., httr::user_agent(make_ua()))
     tmp_data <- check_and_parse(resp)
     k <- k + 5000
     data <- rbind(data, tmp_data)
     }
     }
     else {
     args <- list(SpecCode = code, limit = limit)
     if (!is.null(fields))
     args <- c(args, fields = paste(c("SpecCode", fields), collapse = ","))
     if (!is.null(query))
     args <- c(args, query)
     bad_tables = c("diet", "ecosystem", "maturity", "morphdat", "morphmet", "popchar",
     "poplf")
     if (endpt %in% bad_tables) {
     names(args)[names(args) == "SpecCode"] = "Speccode"
     }
     resp <- httr::GET(paste0(server, "/", endpt), query = args, httr::user_agent(make_ua()))
     data <- check_and_parse(resp)
     }
     if (endpt %in% bad_tables && !is.null(data)) {
     names(data)[names(data) == "Speccode"] = "SpecCode"
     }
     tidy_table(data, server = server)
     }))
     3: flatten_bindable(dots_values(...))
     4: dots_values(...)
     5: map(dots, function(dot) eval_bare(dot$expr, dot$env))
     6: lapply(.x, .f, ...)
     7: FUN(X[[i]], ...)
     8: eval_bare(dot$expr, dot$env)
     9: lapply(codes, function(code) {
     if (nchar(code) == 0 && limit > 5000) {
     k <- 0
     data <- {
     }
     while (k < limit) {
     args <- list(SpecCode = code, limit = as.integer(min(5000, limit - k)),
     offset = as.integer(k + 1))
     if (!is.null(fields))
     args <- c(args, fields = paste(c("SpecCode", fields), collapse = ","))
     if (!is.null(query))
     args <- c(args, query)
     bad_tables = c("diet", "ecosystem", "maturity", "morphdat", "morphmet",
     "popchar", "poplf")
     if (endpt %in% bad_tables) {
     names(args)[names(args) == "SpecCode"] = "Speccode"
     }
     resp <- httr::GET(paste0(server, "/", endpt), query = args, ..., httr::user_agent(make_ua()))
     tmp_data <- check_and_parse(resp)
     k <- k + 5000
     data <- rbind(data, tmp_data)
     }
     }
     else {
     args <- list(SpecCode = code, limit = limit)
     if (!is.null(fields))
     args <- c(args, fields = paste(c("SpecCode", fields), collapse = ","))
     if (!is.null(query))
     args <- c(args, query)
     bad_tables = c("diet", "ecosystem", "maturity", "morphdat", "morphmet", "popchar",
     "poplf")
     if (endpt %in% bad_tables) {
     names(args)[names(args) == "SpecCode"] = "Speccode"
     }
     resp <- httr::GET(paste0(server, "/", endpt), query = args, httr::user_agent(make_ua()))
     data <- check_and_parse(resp)
     }
     if (endpt %in% bad_tables && !is.null(data)) {
     names(data)[names(data) == "Speccode"] = "SpecCode"
     }
     tidy_table(data, server = server)
     })
     10: FUN(X[[i]], ...)
     11: httr::GET(paste0(server, "/", endpt), query = args, httr::user_agent(make_ua()))
     12: request_perform(req, hu$handle$handle)
     13: request_fetch(req$output, req$url, handle)
     14: request_fetch.write_memory(req$output, req$url, handle)
     15: curl::curl_fetch_memory(url, handle = handle)
    
     testthat results ================================================================
     OK: 35 SKIPPED: 32 FAILED: 1
     1. Error: Custom queries give desired result (@test_endpoint.R#10)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 2.1.2
Check: re-building of vignette outputs
Result: WARN
    Error in re-building vignettes:
     ...
    Quitting from lines 69-70 (tutorial.Rmd)
    Error: processing vignette ‘tutorial.Rmd’ failed with diagnostics:
    Couldn't connect to server
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 2.1.2
Check: data for non-ASCII characters
Result: NOTE
     Note: found 44 marked UTF-8 strings
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-sparc, r-patched-solaris-x86, r-release-osx-x86_64, r-oldrel-osx-x86_64

Version: 2.1.2
Check: tests
Result: ERROR
     Running ‘testthat.R’ [1s/11s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(rfishbase)
     > options(is_test = TRUE) # set user-agent to distinguish automated tests
     > test_check("rfishbase")
     1. Error: Custom queries give desired result (@test_endpoint.R#10) -------------
     Timeout was reached
     1: country(query = list(C_Code = 440)) at testthat/test_endpoint.R:10
     2: dplyr::bind_rows(lapply(codes, function(code) {
     if (nchar(code) == 0 && limit > 5000) {
     k <- 0
     data <- {
     }
     while (k < limit) {
     args <- list(SpecCode = code, limit = as.integer(min(5000, limit - k)),
     offset = as.integer(k + 1))
     if (!is.null(fields))
     args <- c(args, fields = paste(c("SpecCode", fields), collapse = ","))
     if (!is.null(query))
     args <- c(args, query)
     bad_tables = c("diet", "ecosystem", "maturity", "morphdat", "morphmet",
     "popchar", "poplf")
     if (endpt %in% bad_tables) {
     names(args)[names(args) == "SpecCode"] = "Speccode"
     }
     resp <- httr::GET(paste0(server, "/", endpt), query = args, ..., httr::user_agent(make_ua()))
     tmp_data <- check_and_parse(resp)
     k <- k + 5000
     data <- rbind(data, tmp_data)
     }
     }
     else {
     args <- list(SpecCode = code, limit = limit)
     if (!is.null(fields))
     args <- c(args, fields = paste(c("SpecCode", fields), collapse = ","))
     if (!is.null(query))
     args <- c(args, query)
     bad_tables = c("diet", "ecosystem", "maturity", "morphdat", "morphmet", "popchar",
     "poplf")
     if (endpt %in% bad_tables) {
     names(args)[names(args) == "SpecCode"] = "Speccode"
     }
     resp <- httr::GET(paste0(server, "/", endpt), query = args, httr::user_agent(make_ua()))
     data <- check_and_parse(resp)
     }
     if (endpt %in% bad_tables && !is.null(data)) {
     names(data)[names(data) == "Speccode"] = "SpecCode"
     }
     tidy_table(data, server = server)
     }))
     3: flatten_bindable(dots_values(...))
     4: dots_values(...)
     5: map(dots, function(dot) eval_bare(dot$expr, dot$env))
     6: lapply(.x, .f, ...)
     7: FUN(X[[i]], ...)
     8: eval_bare(dot$expr, dot$env)
     9: lapply(codes, function(code) {
     if (nchar(code) == 0 && limit > 5000) {
     k <- 0
     data <- {
     }
     while (k < limit) {
     args <- list(SpecCode = code, limit = as.integer(min(5000, limit - k)),
     offset = as.integer(k + 1))
     if (!is.null(fields))
     args <- c(args, fields = paste(c("SpecCode", fields), collapse = ","))
     if (!is.null(query))
     args <- c(args, query)
     bad_tables = c("diet", "ecosystem", "maturity", "morphdat", "morphmet",
     "popchar", "poplf")
     if (endpt %in% bad_tables) {
     names(args)[names(args) == "SpecCode"] = "Speccode"
     }
     resp <- httr::GET(paste0(server, "/", endpt), query = args, ..., httr::user_agent(make_ua()))
     tmp_data <- check_and_parse(resp)
     k <- k + 5000
     data <- rbind(data, tmp_data)
     }
     }
     else {
     args <- list(SpecCode = code, limit = limit)
     if (!is.null(fields))
     args <- c(args, fields = paste(c("SpecCode", fields), collapse = ","))
     if (!is.null(query))
     args <- c(args, query)
     bad_tables = c("diet", "ecosystem", "maturity", "morphdat", "morphmet", "popchar",
     "poplf")
     if (endpt %in% bad_tables) {
     names(args)[names(args) == "SpecCode"] = "Speccode"
     }
     resp <- httr::GET(paste0(server, "/", endpt), query = args, httr::user_agent(make_ua()))
     data <- check_and_parse(resp)
     }
     if (endpt %in% bad_tables && !is.null(data)) {
     names(data)[names(data) == "Speccode"] = "SpecCode"
     }
     tidy_table(data, server = server)
     })
     10: FUN(X[[i]], ...)
     11: httr::GET(paste0(server, "/", endpt), query = args, httr::user_agent(make_ua()))
     12: request_perform(req, hu$handle$handle)
     13: request_fetch(req$output, req$url, handle)
     14: request_fetch.write_memory(req$output, req$url, handle)
     15: curl::curl_fetch_memory(url, handle = handle)
    
     testthat results ================================================================
     OK: 35 SKIPPED: 32 FAILED: 1
     1. Error: Custom queries give desired result (@test_endpoint.R#10)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-patched-linux-x86_64

Version: 2.1.2
Check: re-building of vignette outputs
Result: WARN
    Error in re-building vignettes:
     ...
    Quitting from lines 69-70 (tutorial.Rmd)
    Error: processing vignette ‘tutorial.Rmd’ failed with diagnostics:
    Timeout was reached
    Execution halted
Flavors: r-patched-linux-x86_64, r-release-windows-ix86+x86_64

Version: 2.1.2
Check: tests
Result: ERROR
     Running 'testthat.R' [13s]
    Running the tests in 'tests/testthat.R' failed.
    Last 13 lines of output:
     tidy_table(data, server = server)
     })
     10: FUN(X[[i]], ...)
     11: httr::GET(paste0(server, "/", endpt), query = args, httr::user_agent(make_ua()))
     12: request_perform(req, hu$handle$handle)
     13: request_fetch(req$output, req$url, handle)
     14: request_fetch.write_memory(req$output, req$url, handle)
     15: curl::curl_fetch_memory(url, handle = handle)
    
     testthat results ================================================================
     OK: 35 SKIPPED: 32 FAILED: 1
     1. Error: Custom queries give desired result (@test_endpoint.R#10)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-release-windows-ix86+x86_64