* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/yummlyr.Rcheck’ * using R Under development (unstable) (2022-04-26 r82260) * using platform: x86_64-pc-linux-gnu (64-bit) * using session charset: UTF-8 * using option ‘--no-stop-on-test-error’ * checking for file ‘yummlyr/DESCRIPTION’ ... OK * checking extension type ... Package * this is package ‘yummlyr’ version ‘0.1.1’ * checking package namespace information ... OK * checking package dependencies ... OK * checking if this is a source package ... OK * checking if there is a namespace ... OK * checking for executable files ... OK * checking for hidden files and directories ... OK * checking for portable file names ... OK * checking for sufficient/correct file permissions ... OK * checking whether package ‘yummlyr’ can be installed ... [3s/10s] OK * checking package directory ... OK * checking ‘build’ directory ... OK * checking DESCRIPTION meta-information ... OK * checking top-level files ... OK * checking for left-over files ... OK * checking index information ... OK * checking package subdirectories ... OK * checking R files for non-ASCII characters ... OK * checking R files for syntax errors ... OK * checking whether the package can be loaded ... OK * checking whether the package can be loaded with stated dependencies ... OK * checking whether the package can be unloaded cleanly ... OK * checking whether the namespace can be loaded with stated dependencies ... OK * checking whether the namespace can be unloaded cleanly ... OK * checking loading without being on the library search path ... OK * checking use of S3 registration ... OK * checking dependencies in R code ... OK * checking S3 generic/method consistency ... OK * checking replacement functions ... OK * checking foreign function calls ... OK * checking R code for possible problems ... [4s/10s] OK * checking Rd files ... OK * checking Rd metadata ... OK * checking Rd line widths ... OK * checking Rd cross-references ... OK * checking for missing documentation entries ... OK * checking for code/documentation mismatches ... OK * checking Rd \usage sections ... OK * checking Rd contents ... OK * checking for unstated dependencies in examples ... OK * checking LazyData ... NOTE 'LazyData' is specified without a 'data' directory * checking R/sysdata.rda ... OK * checking installed files from ‘inst/doc’ ... OK * checking files in ‘vignettes’ ... OK * checking examples ... OK * checking for unstated dependencies in ‘tests’ ... OK * checking tests ... Running ‘testthat.R’ [24s/44s] [24s/45s] ERROR Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(yummlyr) > > test_check("yummlyr") ----------- FAILURE REPORT -------------- --- failure: length > 1 in coercion to logical --- --- srcref --- : --- package (from environment) --- yummlyr --- call from context --- FUN(X[[i]], ...) --- call from argument --- unlist(x) >= 0 && unlist(x) <= 1 --- R stacktrace --- where 1: FUN(X[[i]], ...) where 2: lapply(X = X, FUN = FUN, ...) where 3: sapply(flavor, function(x) unlist(x) >= 0 && unlist(x) <= 1) where 4: which(!sapply(flavor, function(x) unlist(x) >= 0 && unlist(x) <= 1)) where 5: search_recipes("bacon", flavor = list(sweet = list(min = 0.1, max = 1))) where 6: eval(expression, parent.frame()) where 7: eval(expression, parent.frame()) where 8 at test-search.R#209: with_mock(`yummlyr::perform_query` = function(query) query, `jsonlite::fromJSON` = function(content) content, result <- search_recipes("bacon", flavor = list(sweet = list(min = 0.1, max = 1))), expect_true(grepl("&flavor.sweet.min=0.1&flavor.sweet.max=1", result)), result <- search_recipes("bacon", flavor = list(sweet = list(min = 0.1))), expect_true(grepl("&flavor.sweet.min=0.1", result)), result <- search_recipes("bacon", flavor = list(sweet = list(min = 0.1), sour = list(max = 0.8))), expect_true(grepl("&flavor.sweet.min=0.1&flavor.sour.max=0.8", result)), expect_error(search_recipes("bacon", flavor = list(Calcium2 = list(min = 3, max = 3.5)))), expect_error(search_recipes("bacon", flavor = list(sweet = list(min = 3, max = 3.5)))), expect_error(search_recipes("bacon", flavor = list(Calcium = list(a = 3, max = 3.5))))) where 9: eval(code, test_env) where 10: eval(code, test_env) where 11: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() } }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error) where 12: doTryCatch(return(expr), name, parentenv, handler) where 13: tryCatchOne(expr, names, parentenv, handlers[[1L]]) where 14: tryCatchList(expr, names[-nh], parentenv, handlers[-nh]) where 15: doTryCatch(return(expr), name, parentenv, handler) where 16: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]]) where 17: tryCatchList(expr, classes, parentenv, handlers) where 18: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() } }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { }) where 19: test_code(desc, code, env = parent.frame(), reporter = reporter) where 20 at test-search.R#208: test_that("Search. flavor argument works (with mocks)", { with_mock(`yummlyr::perform_query` = function(query) query, `jsonlite::fromJSON` = function(content) content, result <- search_recipes("bacon", flavor = list(sweet = list(min = 0.1, max = 1))), expect_true(grepl("&flavor.sweet.min=0.1&flavor.sweet.max=1", result)), result <- search_recipes("bacon", flavor = list(sweet = list(min = 0.1))), expect_true(grepl("&flavor.sweet.min=0.1", result)), result <- search_recipes("bacon", flavor = list(sweet = list(min = 0.1), sour = list(max = 0.8))), expect_true(grepl("&flavor.sweet.min=0.1&flavor.sour.max=0.8", result)), expect_error(search_recipes("bacon", flavor = list(Calcium2 = list(min = 3, max = 3.5)))), expect_error(search_recipes("bacon", flavor = list(sweet = list(min = 3, max = 3.5)))), expect_error(search_recipes("bacon", flavor = list(Calcium = list(a = 3, max = 3.5))))) }) where 21: eval(code, test_env) where 22: eval(code, test_env) where 23: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() } }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error) where 24: doTryCatch(return(expr), name, parentenv, handler) where 25: tryCatchOne(expr, names, parentenv, handlers[[1L]]) where 26: tryCatchList(expr, names[-nh], parentenv, handlers[-nh]) where 27: doTryCatch(return(expr), name, parentenv, handler) where 28: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]]) where 29: tryCatchList(expr, classes, parentenv, handlers) where 30: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() } }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { }) where 31: test_code(NULL, exprs, env) where 32: source_file(path, child_env(env), wrap = wrap) where 33: FUN(X[[i]], ...) where 34: lapply(test_paths, test_one_file, env = env, wrap = wrap) where 35: doTryCatch(return(expr), name, parentenv, handler) where 36: tryCatchOne(expr, names, parentenv, handlers[[1L]]) where 37: tryCatchList(expr, classes, parentenv, handlers) where 38: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL }) where 39: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, wrap = wrap)) where 40: test_files(test_dir = test_dir, test_package = test_package, test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap, load_package = load_package) where 41: test_files(test_dir = path, test_paths = test_paths, test_package = package, reporter = reporter, load_helpers = load_helpers, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap, load_package = load_package, parallel = parallel) where 42: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") where 43: test_check("yummlyr") --- value of length: 2 type: logical --- min max TRUE TRUE --- function from context --- function (x) unlist(x) >= 0 && unlist(x) <= 1 --- function search by body --- ----------- END OF FAILURE REPORT -------------- Fatal error: length > 1 in coercion to logical * checking for unstated dependencies in vignettes ... OK * checking package vignettes in ‘inst/doc’ ... OK * checking re-building of vignette outputs ... OK * checking PDF version of manual ... OK * checking for non-standard things in the check directory ... OK * checking for detritus in the temp directory ... OK * DONE Status: 1 ERROR, 1 NOTE See ‘/data/gannet/ripley/R/packages/tests-LENGTH1/yummlyr.Rcheck/00check.log’ for details. Command exited with non-zero status 1 Time 2:13.13, 50.77 + 7.74