Running ‘testthat.R’ [24s/35s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(styler)
  > 
  > test_check("styler")
  Loading required namespace: DiagrammeR
  
   *** caught segfault ***
  address 0x6a63, cause 'memory not mapped'
  
  Traceback:
   1: terminals$id
   2: eval_tidy(xs[[i]], unique_output)
   3: lst_quos(xs, expand = TRUE)
   4: as_tibble(lst_quos(xs, expand = TRUE))
   5: data_frame(id = terminals$id, token_before = lag(terminals$token,     default = ""))
   6: eval(lhs, parent, parent)
   7: eval(lhs, parent, parent)
   8: data_frame(id = terminals$id, token_before = lag(terminals$token,     default = "")) %>% left_join(pd_flat, ., by = "id")
   9: add_terminal_token_before(.)
  10: function_list[[i]](value)
  11: freduce(value, `_function_list`)
  12: `_fseq`(`_lhs`)
  13: eval(quote(`_fseq`(`_lhs`)), env, env)
  14: eval(quote(`_fseq`(`_lhs`)), env, env)
  15: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  16: tokenize(text) %>% add_terminal_token_before() %>% add_terminal_token_after()
  17: compute_parse_data_nested(text)
  18: parse_transform_serialize(text, transformers)
  19: transformer(text)
  20: transformer(., ...)
  21: function_list[[i]](value)
  22: freduce(value, `_function_list`)
  23: `_fseq`(`_lhs`)
  24: eval(quote(`_fseq`(`_lhs`)), env, env)
  25: eval(quote(`_fseq`(`_lhs`)), env, env)
  26: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  27: read_in %>% transformer(...) %>% unclass()
  28: .f("/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/styler.Rcheck/tests/testthat/line_breaks_fun_call/token_dependent_comments-in.R",     "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/styler.Rcheck/tests/testthat/line_breaks_fun_call/token_dependent_comments-out.R",     "token_dependent_comments-in.R", "token_dependent_comments-out.R",     "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/styler.Rcheck/tests/testthat/line_breaks_fun_call/token_dependent_comments-in_tree",     transformer = function (text, ..., style = tidyverse_style,         transformers = style(...))     {        transformer <- make_transformer(transformers)        styled_text <- transformer(text)        construct_vertical(styled_text)    }, write_back = TRUE, write_tree = NA)
  29: do.call(".f", c(args, list(...)))
  30: pwalk(list(in_items, out_items, in_names, out_names, out_trees),     transform_and_check, transformer = transformer, write_back = write_back,     write_tree = write_tree, ...)
  31: test_collection("line_breaks_fun_call", "token_dependent_comments",     transformer = style_text)
  32: eval_bare(get_expr(quo), get_env(quo))
  33: withCallingHandlers(code, warning = function(condition) {    out$push(condition)    invokeRestart("muffleWarning")})
  34: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  35: quasi_capture(enquo(object), capture_warnings, label = label)
  36: expect_warning(test_collection("line_breaks_fun_call", "token_dependent_comments",     transformer = style_text), NA)
  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(desc, code, env = parent.frame())
  48: test_that("line breaks work with comments", {    expect_warning(test_collection("line_breaks_fun_call", "token_dependent_comments",         transformer = style_text), NA)    expect_warning(test_collection("line_breaks_fun_call", "line_breaks_and_comments",         transformer = style_text), NA)})
  49: eval(code, test_env)
  50: eval(code, test_env)
  51: 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)
  52: doTryCatch(return(expr), name, parentenv, handler)
  53: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  54: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  55: doTryCatch(return(expr), name, parentenv, handler)
  56: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  57: tryCatchList(expr, classes, parentenv, handlers)
  58: 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) {    })
  59: test_code(NULL, exprs, env)
  60: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
  61: force(code)
  62: 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()    })
  63: FUN(X[[i]], ...)
  64: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
  65: force(code)
  66: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE, wrap = wrap))
  67: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
  68: 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)
  69: 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)
  70: test_check("styler")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault