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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: GaborFeatureExtract
> ### Title: Gabor Feature Extraction
> ### Aliases: GaborFeatureExtract
> ### Keywords: datasets
> 
> ### ** Examples
> 
> 
> library(OpenImageR)
> 
> init_gb = GaborFeatureExtract$new()
> 
> # gabor-filter-bank
> #------------------
> 
> gb_f = init_gb$gabor_filter_bank(scales = 5, orientations = 8, gabor_rows = 39,
+ 
+                                  gabor_columns = 39, plot_data = TRUE)
> 
> 
> # plot gabor-filter-bank
> #-----------------------
> 
> plt_f = init_gb$plot_gabor(real_matrices = gb_f$gabor_real, margin_btw_plots = 0.65,
+ 
+                            thresholding = FALSE)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
OpenImageR
 --- call from context --- 
NormalizeObject(real_matrices[[idx[i]]])
 --- call from argument --- 
if (class(x) == "matrix") {
    out = Normalize_matrix(x)
} else if (is.array(x) && !is.na(dim(x)[3]) && dim(x)[3] == 3) {
    out = Normalize_array(x)
} else {
    stop("invalid data type, use one of vector, matrix, data frame or array")
}
 --- R stacktrace ---
where 1: NormalizeObject(real_matrices[[idx[i]]])
where 2: init_gb$plot_gabor(real_matrices = gb_f$gabor_real, margin_btw_plots = 0.65, 
    thresholding = FALSE)

 --- value of length: 2 type: logical ---
[1]  TRUE FALSE
 --- function from context --- 
function (x) 
{
    if (is.data.frame(x)) 
        x = as.matrix(x)
    if (is.vector(x, mode = "numeric")) {
        out = (x - min(x))/(max(x) - min(x))
    }
    else if (class(x) == "matrix") {
        out = Normalize_matrix(x)
    }
    else if (is.array(x) && !is.na(dim(x)[3]) && dim(x)[3] == 
        3) {
        out = Normalize_array(x)
    }
    else {
        stop("invalid data type, use one of vector, matrix, data frame or array")
    }
    return(out)
}
<bytecode: 0x1f8ef90>
<environment: namespace:OpenImageR>
 --- function search by body ---
Function NormalizeObject in namespace OpenImageR has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1