Running ‘testthat.R’ [6s/7s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(comperes)
  
  Attaching package: 'comperes'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("comperes")
  
   *** caught segfault ***
  address 0x6a63, cause 'memory not mapped'
  
  Traceback:
   1: .data$player
   2: .f(.x[[i]], ...)
   3: map(.x[sel], .f, ...)
   4: map_if(quos, is_symbol, eval_tidy, data)
   5: vars_rename_eval(quos, .vars)
   6: tidyselect::vars_rename(names(.data), !!!quos(...))
   7: rename.data.frame(., `:=`(!!player_name, .data$player), `:=`(!!score_name,     .data$score))
   8: NextMethod()
   9: reconstruct(NextMethod(), .data)
  10: rename.longcr(., `:=`(!!player_name, .data$player), `:=`(!!score_name,     .data$score))
  11: rename(., `:=`(!!player_name, .data$player), `:=`(!!score_name,     .data$score))
  12: function_list[[i]](value)
  13: freduce(value, `_function_list`)
  14: `_fseq`(`_lhs`)
  15: eval(quote(`_fseq`(`_lhs`)), env, env)
  16: eval(quote(`_fseq`(`_lhs`)), env, env)
  17: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  18: game_data %>% rename(`:=`(!!player_name, .data$player), `:=`(!!score_name,     .data$score)) %>% select(-.data$in_game_id)
  19: FUN(X[[i]], ...)
  20: lapply(., function(game_data) {    pair_id <- game_data$in_game_id[1]    player_name <- paste0("player", pair_id)    score_name <- paste0("score", pair_id)    game_data %>% rename(`:=`(!!player_name, .data$player), `:=`(!!score_name,         .data$score)) %>% select(-.data$in_game_id)})
  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: split(res, res$in_game_id) %>% lapply(function(game_data) {    pair_id <- game_data$in_game_id[1]    player_name <- paste0("player", pair_id)    score_name <- paste0("score", pair_id)    game_data %>% rename(`:=`(!!player_name, .data$player), `:=`(!!score_name,         .data$score)) %>% select(-.data$in_game_id)}) %>% reduce_full_join(by = "game") %>% arrange(.data$game) %>%     select(.data$game, everything())
  28: as_widecr.longcr(input_many_pairs, repair = TRUE)
  29: as_widecr(input_many_pairs, repair = TRUE)
  30: is.data.frame(x)
  31: colnames(as_widecr(input_many_pairs, repair = TRUE))
  32: eval_bare(get_expr(quo), get_env(quo))
  33: quasi_label(enquo(object), label)
  34: expect_identical(colnames(as_widecr(input_many_pairs, repair = TRUE)),     output_ref_colnames)
  35: eval(code, test_env)
  36: eval(code, test_env)
  37: 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)
  38: doTryCatch(return(expr), name, parentenv, handler)
  39: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  40: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: 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) {    })
  45: test_code(desc, code, env = parent.frame())
  46: test_that("as_widecr.longcr correctly renames many columns",     {        input_many_pairs <- input_longcr        input_many_pairs <- dplyr::bind_rows(input_many_pairs,             input_many_pairs[rep(1, 10), ])        output_ref_colnames <- c("game", paste0(rep(c("player",             "score"), times = 12), formatC(rep(1:12, each = 2),             width = 2, format = "d", flag = "0")))        expect_identical(colnames(as_widecr(input_many_pairs,             repair = TRUE)), output_ref_colnames)    })
  47: eval(code, test_env)
  48: eval(code, test_env)
  49: 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)
  50: doTryCatch(return(expr), name, parentenv, handler)
  51: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  52: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  53: doTryCatch(return(expr), name, parentenv, handler)
  54: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  55: tryCatchList(expr, classes, parentenv, handlers)
  56: 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) {    })
  57: test_code(NULL, exprs, env)
  58: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
  59: force(code)
  60: 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()    })
  61: FUN(X[[i]], ...)
  62: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
  63: force(code)
  64: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE, wrap = wrap))
  65: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
  66: 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)
  67: 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)
  68: test_check("comperes")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault