Running ‘testthat.R’ [30s/39s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(bayesplot)
  This is bayesplot version 1.5.0
  - Plotting theme set to bayesplot::theme_default()
  - Online documentation at mc-stan.org/bayesplot
  > 
  > Sys.unsetenv("R_TESTS")
  > test_check("bayesplot")
  
   *** caught segfault ***
  address 0x6a63, cause 'memory not mapped'
  
  Traceback:
   1: .data$Value
   2: eval_tidy(enquo(var), var_env)
   3: tidyselect::vars_pull(names(.data), !!enquo(var))
   4: pull.data.frame(X[[i]], ...)
   5: FUN(X[[i]], ...)
   6: lapply(., pull, !!value_var)
   7: function_list[[k]](value)
   8: withVisible(function_list[[k]](value))
   9: freduce(value, `_function_list`)
  10: `_fseq`(`_lhs`)
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  14: group_df %>% split(dplyr::group_indices(group_df)) %>% lapply(pull,     !!value_var)
  15: compute_column_density(., c(.data$Parameter, .data$Chain), .data$Value,     interval_width = 1, bw = bw, adjust = adjust, kernel = kernel,     n_dens = n_dens)
  16: function_list[[i]](value)
  17: freduce(value, `_function_list`)
  18: `_fseq`(`_lhs`)
  19: eval(quote(`_fseq`(`_lhs`)), env, env)
  20: eval(quote(`_fseq`(`_lhs`)), env, env)
  21: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  22: x %>% prepare_mcmc_array(pars = pars, regex_pars = regex_pars,     transformations = transformations) %>% melt_mcmc() %>% compute_column_density(c(.data$Parameter,     .data$Chain), .data$Value, interval_width = 1, bw = bw, adjust = adjust,     kernel = kernel, n_dens = n_dens) %>% mutate(Chain = factor(.data$Chain)) %>%     rlang::set_names(tolower) %>% dplyr::as_tibble()
  23: mcmc_dens_chains_data(x, pars = pars, regex_pars = regex_pars,     transformations = transformations, bw = bw, adjust = adjust,     kernel = kernel, n_dens = n_dens)
  24: mcmc_dens_chains(arr, pars = "beta[1]", regex_pars = "x\\:",     color_chains = FALSE)
  25: eval(code, test_env)
  26: eval(code, test_env)
  27: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error)
  28: doTryCatch(return(expr), name, parentenv, handler)
  29: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  30: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  31: doTryCatch(return(expr), name, parentenv, handler)
  32: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  33: tryCatchList(expr, classes, parentenv, handlers)
  34: tryCatch(withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error), error = handle_fatal,     skip = function(e) {    })
  35: test_code(desc, code, env = parent.frame())
  36: test_that("mcmc_dens_chains returns a ggplot object", {    p <- mcmc_dens_chains(arr, pars = "beta[1]", regex_pars = "x\\:",         color_chains = FALSE)    expect_gg(p)    p2 <- mcmc_dens_overlay(dframe_multiple_chains, pars = c("(Intercept)",         "beta[2]"), color_chains = TRUE)    expect_gg(p2)})
  37: eval(code, test_env)
  38: eval(code, test_env)
  39: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  43: doTryCatch(return(expr), name, parentenv, handler)
  44: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  45: tryCatchList(expr, classes, parentenv, handlers)
  46: tryCatch(withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error), error = handle_fatal,     skip = function(e) {    })
  47: test_code(NULL, exprs, env)
  48: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
  49: force(code)
  50: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,     {        lister$start_file(basename(path))        source_file(path, new.env(parent = env), chdir = TRUE,             wrap = wrap)        end_context()    })
  51: FUN(X[[i]], ...)
  52: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
  53: force(code)
  54: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE, wrap = wrap))
  55: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
  56: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     wrap = wrap)
  57: test_package_dir(package = package, test_path = test_path, filter = filter,     reporter = reporter, ..., stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
  58: test_check("bayesplot")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault