Running ‘testthat.R’ [76s/76s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(huxtable)
  > 
  > 
  > test_check("huxtable")
  1. Error: guess_knitr_output_format() gets it right (@test-output.R#90) --------
  pandoc is required and was not found (see the help page ?rmarkdown::pandoc_available).
  1: expect_silent(out[fname] <- rmarkdown::render(fname, quiet = TRUE, run_pandoc = FALSE)) at testthat/test-output.R:90
  2: evaluate_promise(object)
  3: with_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning, 
         message = handle_message))
  4: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)
  5: withVisible(code)
  6: rmarkdown::render(fname, quiet = TRUE, run_pandoc = FALSE)
  7: create_output_format(output_format$name, output_format$options)
  8: do.call(output_format_func, options)
  9: (function (toc = FALSE, toc_depth = 2, number_sections = FALSE, fig_width = 6.5, 
         fig_height = 4.5, fig_crop = TRUE, fig_caption = TRUE, dev = "pdf", df_print = "default", 
         highlight = "default", template = "default", keep_tex = FALSE, latex_engine = "pdflatex", 
         citation_package = c("none", "natbib", "biblatex"), includes = NULL, md_extensions = NULL, 
         pandoc_args = NULL, extra_dependencies = NULL) 
     {
         args <- c()
         args <- c(args, pandoc_toc_args(toc, toc_depth))
         if (identical(template, "default")) {
             pandoc_available(error = TRUE)
             version <- pandoc_version()
             if (version >= "1.17.0.2") 
                 latex_template <- "default-1.17.0.2.tex"
             else if (version >= "1.15.2") 
                 latex_template <- "default-1.15.2.tex"
             else if (version >= "1.14") 
                 latex_template <- "default-1.14.tex"
             else latex_template <- "default.tex"
             args <- c(args, "--template", pandoc_path_arg(rmarkdown_system_file(paste0("rmd/latex/", 
                 latex_template))))
         }
         else if (!is.null(template)) {
             args <- c(args, "--template", pandoc_path_arg(template))
         }
         if (number_sections) 
             args <- c(args, "--number-sections")
         if (!is.null(highlight)) 
             highlight <- match.arg(highlight, highlighters())
         args <- c(args, pandoc_highlight_args(highlight))
         latex_engine = match.arg(latex_engine, c("pdflatex", "lualatex", "xelatex"))
         args <- c(args, pandoc_latex_engine_args(latex_engine))
         citation_package <- match.arg(citation_package)
         if (citation_package != "none") 
             args <- c(args, paste0("--", citation_package))
         args <- c(args, includes_to_pandoc_args(includes))
         if (identical(template, "default")) 
             args <- c(args, "--variable", "graphics=yes")
         args <- c(args, pandoc_args)
         saved_files_dir <- NULL
         pdf_pre_processor <- function(metadata, input_file, runtime, knit_meta, files_dir, 
             output_dir) {
             args <- c()
             has_geometry <- function(text) {
                 length(grep("^geometry:.*$", text)) > 0
             }
             if (!has_geometry(readLines(input_file, warn = FALSE))) 
                 args <- c(args, "--variable", "geometry:margin=1in")
             if (length(extra_dependencies) || has_latex_dependencies(knit_meta)) {
                 extra_dependencies <- latex_dependencies(extra_dependencies)
                 all_dependencies <- append(extra_dependencies, flatten_latex_dependencies(knit_meta))
                 filename <- tempfile()
                 latex_dependencies_as_text_file(all_dependencies, filename)
                 args <- c(args, includes_to_pandoc_args(includes(in_header = filename)))
             }
             args
         }
         pre_processor <- function(metadata, input_file, runtime, knit_meta, files_dir, 
             output_dir) {
             saved_files_dir <<- files_dir
             if (identical(template, "default")) 
                 pdf_pre_processor(metadata, input_file, runtime, knit_meta, files_dir, 
                     output_dir)
             else invisible(NULL)
         }
         intermediates_generator <- function(original_input, encoding, intermediates_dir) {
             intermediates <- copy_render_intermediates(original_input, encoding, intermediates_dir, 
                 FALSE)
             if (!is.null(saved_files_dir) && dir_exists(saved_files_dir)) {
                 file.copy(saved_files_dir, intermediates_dir, recursive = TRUE)
                 intermediates <- c(intermediates, list.files(path = file.path(intermediates_dir, 
                     basename(saved_files_dir)), all.files = TRUE, recursive = TRUE, full.names = TRUE))
             }
             intermediates
         }
         output_format(knitr = knitr_options_pdf(fig_width, fig_height, fig_crop, dev), 
             pandoc = pandoc_options(to = "latex", from = from_rmarkdown(fig_caption, 
                 md_extensions), args = args, latex_engine = latex_engine, keep_tex = keep_tex), 
             clean_supporting = !keep_tex, df_print = df_print, pre_processor = pre_processor, 
             intermediates_generator = intermediates_generator)
     })()
  10: pandoc_available(error = TRUE)
  11: stop(paste(msg, collapse = " "), call. = FALSE)
  
  testthat results ================================================================
  OK: 188 SKIPPED: 17 FAILED: 1
  1. Error: guess_knitr_output_format() gets it right (@test-output.R#90) 
  
  Error: testthat unit tests failed
  Execution halted