Running examples in 'gitter-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: gitter
> ### Title: Process a single plate image
> ### Aliases: gitter
> ### Keywords: gitter image process sga single
> 
> ### ** Examples
> 
> # Read sample image
> f = system.file("extdata", "sample.jpg", package="gitter")
> # Process it
> dat = gitter(f)
2019-11-24 23:17:16:INFO::Reading image from: /home/hornik/tmp/R.check/r-devel-clang/Work/build/Packages/gitter/extdata/sample.jpg
2019-11-24 23:17:17:INFO::	Detected color image, extracting greyscale
2019-11-24 23:17:17:INFO::Running fast background correction
2019-11-24 23:17:17:INFO::Opening image with kernel size 31
2019-11-24 23:17:18:INFO::Iteration 0, threshold t = 0.14
2019-11-24 23:17:18:INFO::Iteration 1, threshold t = 0.15
2019-11-24 23:17:18:INFO::Iteration 2, threshold t = 0.15
2019-11-24 23:17:18:INFO::Optimal threshold t = 0.15
2019-11-24 23:17:18:INFO::Thresholding took 0.95 seconds
2019-11-24 23:17:18:INFO::Computing row sums
2019-11-24 23:17:18:INFO::Computing column sums
2019-11-24 23:17:19:INFO::Getting row peaks...
2019-11-24 23:17:19:INFO::Estimated window size: 26
2019-11-24 23:17:19:INFO::Getting column peaks...
2019-11-24 23:17:19:INFO::Estimated window size: 26
2019-11-24 23:17:19:INFO::Fitting bounds...
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
gitter
 --- call from context --- 
.drawRect(coords[, 3:6], im.grey, color = "orange")
 --- call from argument --- 
if (class(im) == "matrix") im = .getColorImage(im)
 --- R stacktrace ---
where 1: .drawRect(coords[, 3:6], im.grey, color = "orange")
where 2: gitter(f)

 --- value of length: 2 type: logical ---
[1]  TRUE FALSE
 --- function from context --- 
function (rects, im, color = "red", int = 1) 
{
    col.rgb = col2rgb(color)[, 1]/255
    if (class(im) == "matrix") 
        im = .getColorImage(im)
    for (i in 1:nrow(rects)) {
        rect = as.numeric(rects[i, ])
        im[rect[3]:rect[4], rect[1], 1] = col.rgb[1]
        im[rect[3]:rect[4], rect[2], 1] = col.rgb[1]
        im[rect[3], rect[1]:rect[2], 1] = col.rgb[1]
        im[rect[4], rect[1]:rect[2], 1] = col.rgb[1]
        im[rect[3]:rect[4], rect[1], 2] = col.rgb[2]
        im[rect[3]:rect[4], rect[2], 2] = col.rgb[2]
        im[rect[3], rect[1]:rect[2], 2] = col.rgb[2]
        im[rect[4], rect[1]:rect[2], 2] = col.rgb[2]
        im[rect[3]:rect[4], rect[1], 3] = col.rgb[3]
        im[rect[3]:rect[4], rect[2], 3] = col.rgb[3]
        im[rect[3], rect[1]:rect[2], 3] = col.rgb[3]
        im[rect[4], rect[1]:rect[2], 3] = col.rgb[3]
    }
    return(im)
}
<bytecode: 0x586b178>
<environment: namespace:gitter>
 --- function search by body ---
Function .drawRect in namespace gitter has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1