CRAN Package Check Results for Package tinter

Last updated on 2020-02-19 10:49:13 CET.

Check Details

Version: 0.0.1
Check: examples
Result: ERROR
    Running examples in 'tinter-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: darken
    > ### Title: Darken colour.
    > ### Aliases: darken
    >
    > ### ** Examples
    >
    > darken(tinter("blue"), 0.2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    tinter
     --- call from context ---
    check_colour(x)
     --- call from argument ---
    if (class(res) == "try-error") stop(x, " is not a valid color",
     call. = FALSE)
     --- R stacktrace ---
    where 1: check_colour(x)
    where 2: tinter("blue")
    where 3: lapply(x, check_colour)
    where 4: darken(tinter("blue"), 0.2)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (x)
    {
     res <- try(grDevices::col2rgb(x), silent = TRUE)
     if (class(res) == "try-error")
     stop(x, " is not a valid color", call. = FALSE)
    }
    <bytecode: 0x255a440>
    <environment: namespace:tinter>
     --- function search by body ---
    Function check_colour in namespace tinter has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(res) == "try-error") stop(x, " is not a valid color", :
     the condition has length > 1
    Calls: darken -> lapply -> tinter -> check_colour
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.0.1
Check: tests
Result: ERROR
     Running 'testthat.R' [3s/3s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(tinter)
     >
     > test_check("tinter")
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     tinter
     --- call from context ---
     check_colour(x)
     --- call from argument ---
     if (class(res) == "try-error") stop(x, " is not a valid color",
     call. = FALSE)
     --- R stacktrace ---
     where 1: check_colour(x)
     where 2: tinter("blue", 10, 1, adjust = 0.2)
     where 3: eval_bare(expr, quo_get_env(quo))
     where 4: quasi_label(enquo(object), arg = "object")
     where 5 at testthat/test-zzz-package.R#4: expect_length(tinter("blue", 10, 1, adjust = 0.2), 19)
     where 6: eval(code, test_env)
     where 7: eval(code, test_env)
     where 8: 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 9: doTryCatch(return(expr), name, parentenv, handler)
     where 10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 11: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 12: doTryCatch(return(expr), name, parentenv, handler)
     where 13: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 14: tryCatchList(expr, classes, parentenv, handlers)
     where 15: 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 16: test_code(desc, code, env = parent.frame())
     where 17 at testthat/test-zzz-package.R#3: test_that("package", {
     expect_length(tinter("blue", 10, 1, adjust = 0.2), 19)
     expect_length(tinter("blue", 10, 1, "shades", adjust = 0.1),
     10)
     expect_length(tinter("blue", 10, 1, "tints", adjust = 0.2),
     10)
     expect_true("#1381C2" %in% tinter("#1381c2"))
     expect_false("#1381C2" %in% tinter("#1381c2", adjust = 0.1))
     expect_false("#1381C2" %in% tinter("#1381c2", adjust = 0.1))
     expect_true("#1381C2" %in% tinter("#1381c2", direction = "shades"))
     expect_true("#1381C2" %in% tinter("#1381c2", direction = "tints"))
     expect_true("#FFFFFF" %in% tinter("#1381c2", crop = 0))
     expect_true("#000000" %in% tinter("#1381c2", crop = 0))
     expect_is(tinter("blue"), "character")
     expect_length(darken(tinter("blue"), amount = 0.1), 9L)
     expect_length(lighten(tinter("blue"), amount = 0.1), 9L)
     })
     where 18: eval(code, test_env)
     where 19: eval(code, test_env)
     where 20: 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 21: doTryCatch(return(expr), name, parentenv, handler)
     where 22: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 23: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 24: doTryCatch(return(expr), name, parentenv, handler)
     where 25: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 26: tryCatchList(expr, classes, parentenv, handlers)
     where 27: 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 28: test_code(NULL, exprs, env)
     where 29: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     where 30: force(code)
     where 31: doWithOneRestart(return(expr), restart)
     where 32: withOneRestart(expr, restarts[[1L]])
     where 33: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 34: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,
     {
     reporter$start_file(basename(path))
     lister$start_file(basename(path))
     source_file(path, new.env(parent = env), chdir = TRUE,
     wrap = wrap)
     reporter$.end_context()
     reporter$end_file()
     })
     where 35: FUN(X[[i]], ...)
     where 36: lapply(paths, test_file, env = env, reporter = current_reporter,
     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     where 37: force(code)
     where 38: doWithOneRestart(return(expr), restart)
     where 39: withOneRestart(expr, restarts[[1L]])
     where 40: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 41: with_reporter(reporter = current_reporter, results <- lapply(paths,
     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,
     load_helpers = FALSE, wrap = wrap))
     where 42: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 43: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,
     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,
     wrap = wrap)
     where 44: test_package_dir(package = package, test_path = test_path, filter = filter,
     reporter = reporter, ..., stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 45: test_check("tinter")
    
     --- value of length: 2 type: logical ---
     [1] FALSE FALSE
     --- function from context ---
     function (x)
     {
     res <- try(grDevices::col2rgb(x), silent = TRUE)
     if (class(res) == "try-error")
     stop(x, " is not a valid color", call. = FALSE)
     }
     <bytecode: 0x37c78d8>
     <environment: namespace:tinter>
     --- function search by body ---
     Function check_colour in namespace tinter has this body.
     ----------- END OF FAILURE REPORT --------------
     -- 1. Error: package (@test-zzz-package.R#4) ----------------------------------
     the condition has length > 1
     Backtrace:
     1. testthat::expect_length(...)
     4. tinter::tinter("blue", 10, 1, adjust = 0.2)
     5. tinter:::check_colour(x)
    
     == testthat results ===========================================================
     [ OK: 2 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 1 ]
     1. Error: package (@test-zzz-package.R#4)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.0.1
Check: examples
Result: ERROR
    Running examples in ‘tinter-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: darken
    > ### Title: Darken colour.
    > ### Aliases: darken
    >
    > ### ** Examples
    >
    > darken(tinter("blue"), 0.2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    tinter
     --- call from context ---
    check_colour(x)
     --- call from argument ---
    if (class(res) == "try-error") stop(x, " is not a valid color",
     call. = FALSE)
     --- R stacktrace ---
    where 1: check_colour(x)
    where 2: tinter("blue")
    where 3: lapply(x, check_colour)
    where 4: darken(tinter("blue"), 0.2)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (x)
    {
     res <- try(grDevices::col2rgb(x), silent = TRUE)
     if (class(res) == "try-error")
     stop(x, " is not a valid color", call. = FALSE)
    }
    <bytecode: 0x55a52f1b3900>
    <environment: namespace:tinter>
     --- function search by body ---
    Function check_colour in namespace tinter has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(res) == "try-error") stop(x, " is not a valid color", :
     the condition has length > 1
    Calls: darken -> lapply -> tinter -> check_colour
    Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.0.1
Check: tests
Result: ERROR
     Running ‘testthat.R’ [2s/4s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(tinter)
     >
     > test_check("tinter")
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     tinter
     --- call from context ---
     check_colour(x)
     --- call from argument ---
     if (class(res) == "try-error") stop(x, " is not a valid color",
     call. = FALSE)
     --- R stacktrace ---
     where 1: check_colour(x)
     where 2: tinter("blue", 10, 1, adjust = 0.2)
     where 3: eval_bare(expr, quo_get_env(quo))
     where 4: quasi_label(enquo(object), arg = "object")
     where 5 at testthat/test-zzz-package.R#4: expect_length(tinter("blue", 10, 1, adjust = 0.2), 19)
     where 6: eval(code, test_env)
     where 7: eval(code, test_env)
     where 8: 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 9: doTryCatch(return(expr), name, parentenv, handler)
     where 10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 11: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 12: doTryCatch(return(expr), name, parentenv, handler)
     where 13: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 14: tryCatchList(expr, classes, parentenv, handlers)
     where 15: 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 16: test_code(desc, code, env = parent.frame())
     where 17 at testthat/test-zzz-package.R#3: test_that("package", {
     expect_length(tinter("blue", 10, 1, adjust = 0.2), 19)
     expect_length(tinter("blue", 10, 1, "shades", adjust = 0.1),
     10)
     expect_length(tinter("blue", 10, 1, "tints", adjust = 0.2),
     10)
     expect_true("#1381C2" %in% tinter("#1381c2"))
     expect_false("#1381C2" %in% tinter("#1381c2", adjust = 0.1))
     expect_false("#1381C2" %in% tinter("#1381c2", adjust = 0.1))
     expect_true("#1381C2" %in% tinter("#1381c2", direction = "shades"))
     expect_true("#1381C2" %in% tinter("#1381c2", direction = "tints"))
     expect_true("#FFFFFF" %in% tinter("#1381c2", crop = 0))
     expect_true("#000000" %in% tinter("#1381c2", crop = 0))
     expect_is(tinter("blue"), "character")
     expect_length(darken(tinter("blue"), amount = 0.1), 9L)
     expect_length(lighten(tinter("blue"), amount = 0.1), 9L)
     })
     where 18: eval(code, test_env)
     where 19: eval(code, test_env)
     where 20: 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 21: doTryCatch(return(expr), name, parentenv, handler)
     where 22: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 23: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 24: doTryCatch(return(expr), name, parentenv, handler)
     where 25: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 26: tryCatchList(expr, classes, parentenv, handlers)
     where 27: 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 28: test_code(NULL, exprs, env)
     where 29: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     where 30: force(code)
     where 31: doWithOneRestart(return(expr), restart)
     where 32: withOneRestart(expr, restarts[[1L]])
     where 33: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 34: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,
     {
     reporter$start_file(basename(path))
     lister$start_file(basename(path))
     source_file(path, new.env(parent = env), chdir = TRUE,
     wrap = wrap)
     reporter$.end_context()
     reporter$end_file()
     })
     where 35: FUN(X[[i]], ...)
     where 36: lapply(paths, test_file, env = env, reporter = current_reporter,
     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     where 37: force(code)
     where 38: doWithOneRestart(return(expr), restart)
     where 39: withOneRestart(expr, restarts[[1L]])
     where 40: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 41: with_reporter(reporter = current_reporter, results <- lapply(paths,
     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,
     load_helpers = FALSE, wrap = wrap))
     where 42: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 43: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,
     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,
     wrap = wrap)
     where 44: test_package_dir(package = package, test_path = test_path, filter = filter,
     reporter = reporter, ..., stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 45: test_check("tinter")
    
     --- value of length: 2 type: logical ---
     [1] FALSE FALSE
     --- function from context ---
     function (x)
     {
     res <- try(grDevices::col2rgb(x), silent = TRUE)
     if (class(res) == "try-error")
     stop(x, " is not a valid color", call. = FALSE)
     }
     <bytecode: 0x5557885cce30>
     <environment: namespace:tinter>
     --- function search by body ---
     Function check_colour in namespace tinter has this body.
     ----------- END OF FAILURE REPORT --------------
     ── 1. Error: package (@test-zzz-package.R#4) ──────────────────────────────────
     the condition has length > 1
     Backtrace:
     1. testthat::expect_length(...)
     4. tinter::tinter("blue", 10, 1, adjust = 0.2)
     5. tinter:::check_colour(x)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 2 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 1 ]
     1. Error: package (@test-zzz-package.R#4)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.0.1
Check: examples
Result: ERROR
    Running examples in ‘tinter-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: darken
    > ### Title: Darken colour.
    > ### Aliases: darken
    >
    > ### ** Examples
    >
    > darken(tinter("blue"), 0.2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    tinter
     --- call from context ---
    check_colour(x)
     --- call from argument ---
    if (class(res) == "try-error") stop(x, " is not a valid color",
     call. = FALSE)
     --- R stacktrace ---
    where 1: check_colour(x)
    where 2: tinter("blue")
    where 3: lapply(x, check_colour)
    where 4: darken(tinter("blue"), 0.2)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (x)
    {
     res <- try(grDevices::col2rgb(x), silent = TRUE)
     if (class(res) == "try-error")
     stop(x, " is not a valid color", call. = FALSE)
    }
    <bytecode: 0x3134750>
    <environment: namespace:tinter>
     --- function search by body ---
    Function check_colour in namespace tinter has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(res) == "try-error") stop(x, " is not a valid color", :
     the condition has length > 1
    Calls: darken -> lapply -> tinter -> check_colour
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.0.1
Check: tests
Result: ERROR
     Running ‘testthat.R’
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(tinter)
     >
     > test_check("tinter")
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     tinter
     --- call from context ---
     check_colour(x)
     --- call from argument ---
     if (class(res) == "try-error") stop(x, " is not a valid color",
     call. = FALSE)
     --- R stacktrace ---
     where 1: check_colour(x)
     where 2: tinter("blue", 10, 1, adjust = 0.2)
     where 3: eval_bare(expr, quo_get_env(quo))
     where 4: quasi_label(enquo(object), arg = "object")
     where 5 at testthat/test-zzz-package.R#4: expect_length(tinter("blue", 10, 1, adjust = 0.2), 19)
     where 6: eval(code, test_env)
     where 7: eval(code, test_env)
     where 8: 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 9: doTryCatch(return(expr), name, parentenv, handler)
     where 10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 11: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 12: doTryCatch(return(expr), name, parentenv, handler)
     where 13: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 14: tryCatchList(expr, classes, parentenv, handlers)
     where 15: 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 16: test_code(desc, code, env = parent.frame())
     where 17 at testthat/test-zzz-package.R#3: test_that("package", {
     expect_length(tinter("blue", 10, 1, adjust = 0.2), 19)
     expect_length(tinter("blue", 10, 1, "shades", adjust = 0.1),
     10)
     expect_length(tinter("blue", 10, 1, "tints", adjust = 0.2),
     10)
     expect_true("#1381C2" %in% tinter("#1381c2"))
     expect_false("#1381C2" %in% tinter("#1381c2", adjust = 0.1))
     expect_false("#1381C2" %in% tinter("#1381c2", adjust = 0.1))
     expect_true("#1381C2" %in% tinter("#1381c2", direction = "shades"))
     expect_true("#1381C2" %in% tinter("#1381c2", direction = "tints"))
     expect_true("#FFFFFF" %in% tinter("#1381c2", crop = 0))
     expect_true("#000000" %in% tinter("#1381c2", crop = 0))
     expect_is(tinter("blue"), "character")
     expect_length(darken(tinter("blue"), amount = 0.1), 9L)
     expect_length(lighten(tinter("blue"), amount = 0.1), 9L)
     })
     where 18: eval(code, test_env)
     where 19: eval(code, test_env)
     where 20: 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 21: doTryCatch(return(expr), name, parentenv, handler)
     where 22: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 23: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 24: doTryCatch(return(expr), name, parentenv, handler)
     where 25: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 26: tryCatchList(expr, classes, parentenv, handlers)
     where 27: 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 28: test_code(NULL, exprs, env)
     where 29: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     where 30: force(code)
     where 31: doWithOneRestart(return(expr), restart)
     where 32: withOneRestart(expr, restarts[[1L]])
     where 33: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 34: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,
     {
     reporter$start_file(basename(path))
     lister$start_file(basename(path))
     source_file(path, new.env(parent = env), chdir = TRUE,
     wrap = wrap)
     reporter$.end_context()
     reporter$end_file()
     })
     where 35: FUN(X[[i]], ...)
     where 36: lapply(paths, test_file, env = env, reporter = current_reporter,
     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     where 37: force(code)
     where 38: doWithOneRestart(return(expr), restart)
     where 39: withOneRestart(expr, restarts[[1L]])
     where 40: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 41: with_reporter(reporter = current_reporter, results <- lapply(paths,
     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,
     load_helpers = FALSE, wrap = wrap))
     where 42: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 43: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,
     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,
     wrap = wrap)
     where 44: test_package_dir(package = package, test_path = test_path, filter = filter,
     reporter = reporter, ..., stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 45: test_check("tinter")
    
     --- value of length: 2 type: logical ---
     [1] FALSE FALSE
     --- function from context ---
     function (x)
     {
     res <- try(grDevices::col2rgb(x), silent = TRUE)
     if (class(res) == "try-error")
     stop(x, " is not a valid color", call. = FALSE)
     }
     <bytecode: 0x44677a8>
     <environment: namespace:tinter>
     --- function search by body ---
     Function check_colour in namespace tinter has this body.
     ----------- END OF FAILURE REPORT --------------
     ── 1. Error: package (@test-zzz-package.R#4) ──────────────────────────────────
     the condition has length > 1
     Backtrace:
     1. testthat::expect_length(...)
     4. tinter::tinter("blue", 10, 1, adjust = 0.2)
     5. tinter:::check_colour(x)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 2 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 1 ]
     1. Error: package (@test-zzz-package.R#4)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.0.1
Check: examples
Result: ERROR
    Running examples in ‘tinter-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: darken
    > ### Title: Darken colour.
    > ### Aliases: darken
    >
    > ### ** Examples
    >
    > darken(tinter("blue"), 0.2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    tinter
     --- call from context ---
    check_colour(x)
     --- call from argument ---
    if (class(res) == "try-error") stop(x, " is not a valid color",
     call. = FALSE)
     --- R stacktrace ---
    where 1: check_colour(x)
    where 2: tinter("blue")
    where 3: lapply(x, check_colour)
    where 4: darken(tinter("blue"), 0.2)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (x)
    {
     res <- try(grDevices::col2rgb(x), silent = TRUE)
     if (class(res) == "try-error")
     stop(x, " is not a valid color", call. = FALSE)
    }
    <bytecode: 0x3313848>
    <environment: namespace:tinter>
     --- function search by body ---
    Function check_colour in namespace tinter has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(res) == "try-error") stop(x, " is not a valid color", :
     the condition has length > 1
    Calls: darken -> lapply -> tinter -> check_colour
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.0.1
Check: tests
Result: ERROR
     Running ‘testthat.R’
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(tinter)
     >
     > test_check("tinter")
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     tinter
     --- call from context ---
     check_colour(x)
     --- call from argument ---
     if (class(res) == "try-error") stop(x, " is not a valid color",
     call. = FALSE)
     --- R stacktrace ---
     where 1: check_colour(x)
     where 2: tinter("blue", 10, 1, adjust = 0.2)
     where 3: eval_bare(expr, quo_get_env(quo))
     where 4: quasi_label(enquo(object), arg = "object")
     where 5 at testthat/test-zzz-package.R#4: expect_length(tinter("blue", 10, 1, adjust = 0.2), 19)
     where 6: eval(code, test_env)
     where 7: eval(code, test_env)
     where 8: 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 9: doTryCatch(return(expr), name, parentenv, handler)
     where 10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 11: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 12: doTryCatch(return(expr), name, parentenv, handler)
     where 13: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 14: tryCatchList(expr, classes, parentenv, handlers)
     where 15: 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 16: test_code(desc, code, env = parent.frame())
     where 17 at testthat/test-zzz-package.R#3: test_that("package", {
     expect_length(tinter("blue", 10, 1, adjust = 0.2), 19)
     expect_length(tinter("blue", 10, 1, "shades", adjust = 0.1),
     10)
     expect_length(tinter("blue", 10, 1, "tints", adjust = 0.2),
     10)
     expect_true("#1381C2" %in% tinter("#1381c2"))
     expect_false("#1381C2" %in% tinter("#1381c2", adjust = 0.1))
     expect_false("#1381C2" %in% tinter("#1381c2", adjust = 0.1))
     expect_true("#1381C2" %in% tinter("#1381c2", direction = "shades"))
     expect_true("#1381C2" %in% tinter("#1381c2", direction = "tints"))
     expect_true("#FFFFFF" %in% tinter("#1381c2", crop = 0))
     expect_true("#000000" %in% tinter("#1381c2", crop = 0))
     expect_is(tinter("blue"), "character")
     expect_length(darken(tinter("blue"), amount = 0.1), 9L)
     expect_length(lighten(tinter("blue"), amount = 0.1), 9L)
     })
     where 18: eval(code, test_env)
     where 19: eval(code, test_env)
     where 20: 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 21: doTryCatch(return(expr), name, parentenv, handler)
     where 22: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     where 23: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     where 24: doTryCatch(return(expr), name, parentenv, handler)
     where 25: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
     names[nh], parentenv, handlers[[nh]])
     where 26: tryCatchList(expr, classes, parentenv, handlers)
     where 27: 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 28: test_code(NULL, exprs, env)
     where 29: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     where 30: force(code)
     where 31: doWithOneRestart(return(expr), restart)
     where 32: withOneRestart(expr, restarts[[1L]])
     where 33: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 34: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,
     {
     reporter$start_file(basename(path))
     lister$start_file(basename(path))
     source_file(path, new.env(parent = env), chdir = TRUE,
     wrap = wrap)
     reporter$.end_context()
     reporter$end_file()
     })
     where 35: FUN(X[[i]], ...)
     where 36: lapply(paths, test_file, env = env, reporter = current_reporter,
     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     where 37: force(code)
     where 38: doWithOneRestart(return(expr), restart)
     where 39: withOneRestart(expr, restarts[[1L]])
     where 40: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     where 41: with_reporter(reporter = current_reporter, results <- lapply(paths,
     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,
     load_helpers = FALSE, wrap = wrap))
     where 42: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 43: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,
     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,
     wrap = wrap)
     where 44: test_package_dir(package = package, test_path = test_path, filter = filter,
     reporter = reporter, ..., stop_on_failure = stop_on_failure,
     stop_on_warning = stop_on_warning, wrap = wrap)
     where 45: test_check("tinter")
    
     --- value of length: 2 type: logical ---
     [1] FALSE FALSE
     --- function from context ---
     function (x)
     {
     res <- try(grDevices::col2rgb(x), silent = TRUE)
     if (class(res) == "try-error")
     stop(x, " is not a valid color", call. = FALSE)
     }
     <bytecode: 0x4993548>
     <environment: namespace:tinter>
     --- function search by body ---
     Function check_colour in namespace tinter has this body.
     ----------- END OF FAILURE REPORT --------------
     ── 1. Error: package (@test-zzz-package.R#4) ──────────────────────────────────
     the condition has length > 1
     Backtrace:
     1. testthat::expect_length(...)
     4. tinter::tinter("blue", 10, 1, adjust = 0.2)
     5. tinter:::check_colour(x)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 2 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 1 ]
     1. Error: package (@test-zzz-package.R#4)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc