Error(s) in re-building vignettes:
  ...
--- re-building 'seewave_IO.rnw' using Sweave
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
seewave
 --- call from context --- 
inputw(wave = wave, f = f, channel = channel)
 --- call from argument --- 
if (class(wave) == "Sample") {
    if (missing(f) | is.null(f)) {
        f <- wave$rate
    }
    wave <- as.matrix(wave$sound[channel, ])
    bit = wave@bits
}
 --- R stacktrace ---
where 1: inputw(wave = wave, f = f, channel = channel)
where 2: oscillo(s1, f = 8000)
where 3: eval(expr, .GlobalEnv)
where 4: eval(expr, .GlobalEnv)
where 5: withVisible(eval(expr, .GlobalEnv))
where 6: doTryCatch(return(expr), name, parentenv, handler)
where 7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 8: tryCatchList(expr, classes, parentenv, handlers)
where 9: tryCatch(expr, error = function(e) {
    call <- conditionCall(e)
    if (!is.null(call)) {
        if (identical(call[[1L]], quote(doTryCatch))) 
            call <- sys.call(-4L)
        dcall <- deparse(call)[1L]
        prefix <- paste("Error in", dcall, ": ")
        LONG <- 75L
        sm <- strsplit(conditionMessage(e), "\n")[[1L]]
        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
        if (is.na(w)) 
            w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 
                type = "b")
        if (w > LONG) 
            prefix <- paste0(prefix, "\n  ")
    }
    else prefix <- "Error : "
    msg <- paste0(prefix, conditionMessage(e), "\n")
    .Internal(seterrmessage(msg[1L]))
    if (!silent && isTRUE(getOption("show.error.messages"))) {
        cat(msg, file = outFile)
        .Internal(printDeferredWarnings())
    }
    invisible(structure(msg, class = "try-error", condition = e))
})
where 10: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 11: evalFunc(ce, options)
where 12: tryCatchList(expr, classes, parentenv, handlers)
where 13: tryCatch(evalFunc(ce, options), finally = {
    cat("\n")
    sink()
})
where 14: driver$runcode(drobj, chunk, chunkopts)
where 15: utils::Sweave(...)
where 16: engine$weave(file, quiet = quiet, encoding = enc)
where 17: doTryCatch(return(expr), name, parentenv, handler)
where 18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 19: tryCatchList(expr, classes, parentenv, handlers)
where 20: 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)
    }
}, error = function(e) {
    OK <<- FALSE
    message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", 
        file, conditionMessage(e)))
})
where 21: tools:::.buildOneVignette("seewave_IO.rnw", "/home/hornik/tmp/R.check/r-devel-clang/Work/PKGS/seewave.Rcheck/vign_test/seewave", 
    TRUE, FALSE, "seewave_IO", "UTF-8", "/tmp/RtmpnYyrvX/file66ae51fb2f38.rds")

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (wave, f, channel = 1, bit = 16) 
{
    if (is.data.frame(wave)) {
        f <- f
        wave <- as.matrix(wave[, channel])
    }
    if (is.vector(wave)) {
        f <- f
        wave <- as.matrix(wave)
    }
    if (is.matrix(wave) && !is.mts(wave) && class(wave) != "WaveMC") {
        f <- f
        wave <- wave[, channel, drop = FALSE]
    }
    if (is.ts(wave)) {
        if (missing(f) || is.null(f)) {
            f <- frequency(wave)
        }
        wave <- as.matrix(wave)
    }
    if (is.mts(wave)) {
        if (missing(f) || is.null(f)) {
            f <- frequency(wave)
        }
        wave <- as.matrix(wave[, channel])
    }
    if (class(wave) == "Sample") {
        if (missing(f) | is.null(f)) {
            f <- wave$rate
        }
        wave <- as.matrix(wave$sound[channel, ])
        bit = wave@bits
    }
    if (class(wave) == "audioSample") {
        if (missing(f) || is.null(f)) {
            f <- wave$rate
        }
        bit = wave$bits
        wave <- as.matrix(wave)
    }
    if (class(wave) == "sound") {
        if (missing(f) || is.null(f)) {
            f <- wave$fs
        }
        wave <- as.matrix(wave$sound)
    }
    if (class(wave) == "Wave") {
        if (missing(f) || is.null(f)) {
            f <- wave@samp.rate
        }
        bit <- wave@bit
        if (channel == 1) {
            wave <- as.matrix(wave@left)
        }
        if (channel == 2) {
            wave <- as.matrix(wave@right)
        }
    }
    if (class(wave) == "WaveMC") {
        if (missing(f) || is.null(f)) {
            f <- wave@samp.rate
        }
        bit <- wave@bit
        wave <- as.matrix(wave@.Data[, channel])
    }
    return(list(w = wave, f = f, bit = bit))
}
<bytecode: 0xc52890>
<environment: namespace:seewave>
 --- function search by body ---
Function inputw in namespace seewave has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1
--- re-building 'seewave_analysis.rnw' using Sweave
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
seewave
 --- call from context --- 
inputw(wave = wave, f = f, channel = channel)
 --- call from argument --- 
if (class(wave) == "WaveMC") {
    if (missing(f) || is.null(f)) {
        f <- wave@samp.rate
    }
    bit <- wave@bit
    wave <- as.matrix(wave@.Data[, channel])
}
 --- R stacktrace ---
where 1: inputw(wave = wave, f = f, channel = channel)
where 2: oscillo(s.44kHz, type = "o", xaxt = "n", tlab = "", alab = "", 
    cex = 0.5)
where 3: eval(expr, .GlobalEnv)
where 4: eval(expr, .GlobalEnv)
where 5: withVisible(eval(expr, .GlobalEnv))
where 6: doTryCatch(return(expr), name, parentenv, handler)
where 7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 8: tryCatchList(expr, classes, parentenv, handlers)
where 9: tryCatch(expr, error = function(e) {
    call <- conditionCall(e)
    if (!is.null(call)) {
        if (identical(call[[1L]], quote(doTryCatch))) 
            call <- sys.call(-4L)
        dcall <- deparse(call)[1L]
        prefix <- paste("Error in", dcall, ": ")
        LONG <- 75L
        sm <- strsplit(conditionMessage(e), "\n")[[1L]]
        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
        if (is.na(w)) 
            w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 
                type = "b")
        if (w > LONG) 
            prefix <- paste0(prefix, "\n  ")
    }
    else prefix <- "Error : "
    msg <- paste0(prefix, conditionMessage(e), "\n")
    .Internal(seterrmessage(msg[1L]))
    if (!silent && isTRUE(getOption("show.error.messages"))) {
        cat(msg, file = outFile)
        .Internal(printDeferredWarnings())
    }
    invisible(structure(msg, class = "try-error", condition = e))
})
where 10: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 11: evalFunc(ce, options)
where 12: tryCatchList(expr, classes, parentenv, handlers)
where 13: tryCatch(evalFunc(ce, options), finally = {
    cat("\n")
    sink()
})
where 14: driver$runcode(drobj, chunk, chunkopts)
where 15: utils::Sweave(...)
where 16: engine$weave(file, quiet = quiet, encoding = enc)
where 17: doTryCatch(return(expr), name, parentenv, handler)
where 18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 19: tryCatchList(expr, classes, parentenv, handlers)
where 20: 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)
    }
}, error = function(e) {
    OK <<- FALSE
    message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", 
        file, conditionMessage(e)))
})
where 21: tools:::.buildOneVignette("seewave_analysis.rnw", "/home/hornik/tmp/R.check/r-devel-clang/Work/PKGS/seewave.Rcheck/vign_test/seewave", 
    TRUE, FALSE, "seewave_analysis", "UTF-8", "/tmp/RtmpnYyrvX/file66ae3a02d13c.rds")

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (wave, f, channel = 1, bit = 16) 
{
    if (is.data.frame(wave)) {
        f <- f
        wave <- as.matrix(wave[, channel])
    }
    if (is.vector(wave)) {
        f <- f
        wave <- as.matrix(wave)
    }
    if (is.matrix(wave) && !is.mts(wave) && class(wave) != "WaveMC") {
        f <- f
        wave <- wave[, channel, drop = FALSE]
    }
    if (is.ts(wave)) {
        if (missing(f) || is.null(f)) {
            f <- frequency(wave)
        }
        wave <- as.matrix(wave)
    }
    if (is.mts(wave)) {
        if (missing(f) || is.null(f)) {
            f <- frequency(wave)
        }
        wave <- as.matrix(wave[, channel])
    }
    if (class(wave) == "Sample") {
        if (missing(f) | is.null(f)) {
            f <- wave$rate
        }
        wave <- as.matrix(wave$sound[channel, ])
        bit = wave@bits
    }
    if (class(wave) == "audioSample") {
        if (missing(f) || is.null(f)) {
            f <- wave$rate
        }
        bit = wave$bits
        wave <- as.matrix(wave)
    }
    if (class(wave) == "sound") {
        if (missing(f) || is.null(f)) {
            f <- wave$fs
        }
        wave <- as.matrix(wave$sound)
    }
    if (class(wave) == "Wave") {
        if (missing(f) || is.null(f)) {
            f <- wave@samp.rate
        }
        bit <- wave@bit
        if (channel == 1) {
            wave <- as.matrix(wave@left)
        }
        if (channel == 2) {
            wave <- as.matrix(wave@right)
        }
    }
    if (class(wave) == "WaveMC") {
        if (missing(f) || is.null(f)) {
            f <- wave@samp.rate
        }
        bit <- wave@bit
        wave <- as.matrix(wave@.Data[, channel])
    }
    return(list(w = wave, f = f, bit = bit))
}
<bytecode: 0x3986978>
<environment: namespace:seewave>
 --- function search by body ---
Function inputw in namespace seewave has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1
SUMMARY: processing the following files failed:
  'seewave_IO.rnw' 'seewave_analysis.rnw'

Error: Vignette re-building failed.
Execution halted