Error(s) in re-building vignettes:
  ...
--- re-building ‘HDclust.Rmd’ using rmarkdown
Warning in engine$weave(file, quiet = quiet, encoding = enc) :
  Pandoc (>= 1.12.3) not available. Falling back to R Markdown v1.
0%   10   20   30   40   50   60   70   80   90   100%
[----|----|----|----|----|----|----|----|----|----|
**************************************************|
Warning: stack imbalance in 'if', 64 then 63

 *** caught segfault ***
address 43, cause 'memory not mapped'

Traceback:
 1: rcpp_trainHmmVb(t(data), NewVb, vbSearchControl(), trControl,     nthread, vb, hmm, mkhmmvb, FALSE)
 2: doTryCatch(return(expr), name, parentenv, handler)
 3: tryCatchOne(expr, names, parentenv, handlers[[1L]])
 4: tryCatchList(expr, classes, parentenv, handlers)
 5: tryCatch({    if (i == length(numst))         HmmVb <- rcpp_trainHmmVb(t(data), NewVb, vbSearchControl(),             trControl, nthread, vb, hmm, mkhmmvb, TRUE)    else HmmVb <- rcpp_trainHmmVb(t(data), NewVb, vbSearchControl(),         trControl, nthread, vb, hmm, mkhmmvb, FALSE)    if (HmmVb@BIC < minBIC) {        minBIC = HmmVb@BIC        optHMMVB = HmmVb    }    HmmVb@BIC}, error = function(err) {    cat(paste("Error for numst = ", numst[i], ":", err))    return(NA)})
 6: hmmvbBIC(faithful, VbStructure)
 7: eval(expr, envir, enclos)
 8: eval(expr, envir, enclos)
 9: withVisible(eval(expr, envir, enclos))
10: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,     error = eHandler, message = mHandler)
11: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,     enclos)), warning = wHandler, error = eHandler, message = mHandler))
12: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,     envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
13: 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)
14: evaluate::evaluate(...)
15: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),     keep_message = !isFALSE(options$message), stop_on_error = if (is.numeric(options$error)) options$error else {        if (options$error && options$include)             0L        else 2L    }, output_handler = knit_handlers(options$render, options))
16: 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 (is.numeric(options$error)) options$error else {        if (options$error && options$include)             0L        else 2L    }, output_handler = knit_handlers(options$render, options)))
17: eng_r(options)
18: block_exec(params)
19: call_block(x)
20: process_group.block(group)
21: process_group(group)
22: 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"),             ") ")    })
23: process_file(text, output)
24: knit(input, text = text, envir = envir, quiet = quiet)
25: (if (grepl("\\.[Rr]md$", file)) knit2html else if (grepl("\\.[Rr]rst$",     file)) knit2pandoc else knit)(file, encoding = encoding,     quiet = quiet, envir = globalenv(), ...)
26: vweave(...)
27: engine$weave(file, quiet = quiet, encoding = enc)
28: doTryCatch(return(expr), name, parentenv, handler)
29: tryCatchOne(expr, names, parentenv, handlers[[1L]])
30: tryCatchList(expr, classes, parentenv, handlers)
31: 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)))})
32: tools:::buildVignettes(dir = "/home/ripley/R/packages/tests32/HDclust.Rcheck/vign_test/HDclust",     ser_elibs = "/tmp/Rtmp7Ha4rr/file228f4d491ec8.rds")
An irrecoverable exception occurred. R is aborting now ...