Error(s) in re-building vignettes:
  ...
--- re-building ‘Rnmr1D.Rmd’ using knitr
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
Rnmr1D
 --- call from context --- 
generate_Metadata_Bruker_fid(RAWDIR, procParams)
 --- call from argument --- 
if (class(L) != "matrix") {
    L <- simplify2array(lapply(L, length))
    LM <- round(mean(L), 0)
    RMLIST <- c()
    if (sum(L < LM) > 0) {
        ERRORLIST <- c(ERRORLIST, LIST[which(L < LM)])
        RMLIST <- c(RMLIST, which(L < LM))
    }
    if (sum(L > LM) > 0) {
        ERRORLIST <- c(ERRORLIST, LIST[which(L > LM)])
        RMLIST <- c(RMLIST, which(L > LM))
    }
    if (length(RMLIST) > 0) 
        LIST <- LIST[-RMLIST]
}
 --- R stacktrace ---
where 1: generate_Metadata_Bruker_fid(RAWDIR, procParams)
where 2: generateMetadata(RAWDIR, procParams)
where 3: eval(expr, envir, enclos)
where 4: eval(expr, envir, enclos)
where 5: withVisible(eval(expr, envir, enclos))
where 6: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, 
    error = eHandler, message = mHandler)
where 7: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, 
    enclos)), warning = wHandler, error = eHandler, message = mHandler))
where 8: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr, 
    envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
where 9: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos, 
    debug = debug, last = i == length(out), use_try = stop_on_error != 
        2L, keep_warning = keep_warning, keep_message = keep_message, 
    output_handler = output_handler, include_timing = include_timing)
where 10: evaluate::evaluate(...)
where 11: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning), 
    keep_message = !isFALSE(options$message), stop_on_error = if (options$error && 
        options$include) 0L else 2L, output_handler = knit_handlers(options$render, 
        options))
where 12: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE, 
    keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message), 
    stop_on_error = if (options$error && options$include) 0L else 2L, 
    output_handler = knit_handlers(options$render, options)))
where 13: block_exec(params)
where 14: call_block(x)
where 15: process_group.block(group)
where 16: process_group(group)
where 17: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), 
    error = function(e) {
        setwd(wd)
        cat(res, sep = "\n", file = output %n% "")
        message("Quitting from lines ", paste(current_lines(i), 
            collapse = "-"), " (", knit_concord$get("infile"), 
            ") ")
    })
where 18: process_file(text, output)
where 19: knit(input, text = text, envir = envir, quiet = quiet)
where 20: knit2html(..., force_v1 = TRUE)
where 21: (if (grepl("\\.[Rr]md$", file)) knit2html_v1 else if (grepl("\\.[Rr]rst$", 
    file)) knit2pandoc else knit)(file, encoding = encoding, 
    quiet = quiet, envir = globalenv(), ...)
where 22: engine$weave(file, quiet = quiet, encoding = enc)
where 23: doTryCatch(return(expr), name, parentenv, handler)
where 24: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 25: tryCatchList(expr, classes, parentenv, handlers)
where 26: tryCatch({
    engine$weave(file, quiet = quiet, encoding = enc)
    setwd(startdir)
    output <- find_vignette_product(name, by = "weave", engine = engine)
    if (!have.makefile && vignette_is_tex(output)) {
        texi2pdf(file = output, clean = FALSE, quiet = quiet)
        output <- find_vignette_product(name, by = "texi2pdf", 
            engine = engine)
    }
    outputs <- c(outputs, output)
}, error = function(e) {
    thisOK <<- FALSE
    fails <<- c(fails, file)
    message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", 
        file, conditionMessage(e)))
})
where 27: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/Rnmr1D.Rcheck/vign_test/Rnmr1D", 
    ser_elibs = "/home/hornik/tmp/scratch/Rtmpm7jGDt/file50b47ae680d5.rds")

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (RAWDIR, procParams) 
{
    metadata <- list()
    ERRORLIST <- c()
    OKRAW <- 1
    lstfac <- matrix(c(1, "Samplecode"), nrow = 1)
    RAWPATH <- gsub("//", "/", RAWDIR)
    LIST <- gsub("//", "/", list.files(path = RAWPATH, pattern = "fid$", 
        all.files = FALSE, full.names = TRUE, recursive = TRUE, 
        ignore.case = FALSE, include.dirs = FALSE))
    if (class(LIST) == "character" && length(LIST) == 0) 
        return(NULL)
    L <- simplify2array(strsplit(LIST, "/"))
    if (class(L) != "matrix") {
        L <- simplify2array(lapply(L, length))
        LM <- round(mean(L), 0)
        RMLIST <- c()
        if (sum(L < LM) > 0) {
            ERRORLIST <- c(ERRORLIST, LIST[which(L < LM)])
            RMLIST <- c(RMLIST, which(L < LM))
        }
        if (sum(L > LM) > 0) {
            ERRORLIST <- c(ERRORLIST, LIST[which(L > LM)])
            RMLIST <- c(RMLIST, which(L > LM))
        }
        if (length(RMLIST) > 0) 
            LIST <- LIST[-RMLIST]
    }
    LIST <- as.data.frame(t(simplify2array(strsplit(LIST, "/"))))
    nDir <- dim(simplify2array(strsplit(RAWPATH, "/")))[1]
    LIST <- LIST[, c(-1:-nDir)]
    nc <- dim(LIST)[2]
    nr <- dim(LIST)[1]
    if (nc < 3) {
        LIST <- cbind(LIST[, 1], LIST)
    }
    SL <- NULL
    if (nc > 3) {
        SL <- LIST[, c(1:(nc - 3))]
        LIST <- LIST[, c((nc - 2):nc)]
    }
    nc = 3
    if (length(levels(LIST[, 1])) < nr && length(levels(LIST[, 
        1])) > 1 && length(levels(LIST[, 2])) < nr && length(levels(LIST[, 
        2])) > 1) {
        L <- levels(LIST[, 1])
        LIST2 <- NULL
        for (i in 1:length(L)) {
            L2 <- LIST[LIST[, 1] == L[i], ]
            LIST2 <- rbind(LIST2, L2[L2[, 2] == levels(L2[, 2])[1], 
                ])
        }
        LIST <- LIST2
    }
    nr <- dim(LIST)[1]
    MS <- as.matrix(LIST)
    if (!is.null(SL)) {
        LIST2 <- cbind(SL[c(1:dim(LIST)[1])], LIST)
    }
    else {
        LIST2 <- LIST
    }
    nc <- dim(LIST2)[2]
    rawdir <- cbind(sapply(1:nr, function(x) {
        do.call(paste, c(RAWPATH, as.list(LIST2[x, c(1:(nc - 
            1))]), sep = "/"))
    }), MS[, 2], rep(0, nr))
    if (length(levels(LIST[, 1])) == nr) {
        M <- MS[, c(1, 1)]
    }
    else {
        M <- MS[, c(1, 2)]
    }
    if (nr == 1 && class(M) == "character") 
        M <- as.matrix(t(M))
    metadata$ERRORLIST <- ERRORLIST
    if (OKRAW == 1) {
        metadata$samples <- M
        metadata$rawids <- gsub("//", "/", rawdir)
        metadata$factors <- lstfac
    }
    return(metadata)
}
<bytecode: 0x55c2773d7c00>
<environment: namespace:Rnmr1D>
 --- function search by body ---
Function generate_Metadata_Bruker_fid in namespace Rnmr1D has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1