• using R Under development (unstable) (2024-12-23 r87457)
• using platform: x86_64-pc-linux-gnu
• R was compiled by     gcc-14 (GCC) 14.2.0     GNU Fortran (GCC) 14.2.0
• running under: Fedora Linux 36 (Workstation Edition)
• using session charset: UTF-8
• using option ‘--no-stop-on-test-error’
• checking for file ‘ff/DESCRIPTION’ ... OK
• this is package ‘ff’ version ‘4.5.0’
• package encoding: UTF-8
• checking package namespace information ... OK
• checking package dependencies ... OK
• checking if this is a source package ... OK
• checking if there is a namespace ... OK
• checking for executable files ... OK
• checking for hidden files and directories ... OK
• checking for portable file names ... OK
• checking for sufficient/correct file permissions ... OK
• checking whether package ‘ff’ can be installed ... [86s/113s] OK See the install log for details.
• used C compiler: ‘gcc-14 (GCC) 14.2.0’
• used C++ compiler: ‘g++-14 (GCC) 14.2.0’
• checking package directory ... OK
• checking DESCRIPTION meta-information ... OK
• checking top-level files ... OK
• checking for left-over files ... OK
• checking index information ... OK
• checking package subdirectories ... OK
• checking code files for non-ASCII characters ... OK
• checking R files for syntax errors ... OK
• checking whether the package can be loaded ... OK
• checking whether the package can be loaded with stated dependencies ... OK
• checking whether the package can be unloaded cleanly ... OK
• checking whether the namespace can be loaded with stated dependencies ... OK
• checking whether the namespace can be unloaded cleanly ... OK
• checking loading without being on the library search path ... OK
• checking whether startup messages can be suppressed ... OK
• checking use of S3 registration ... OK
• checking dependencies in R code ... OK
• checking S3 generic/method consistency ... OK
• checking replacement functions ... OK
• checking foreign function calls ... OK
• checking R code for possible problems ... [48s/58s] OK
• checking Rd files ... OK
• checking Rd metadata ... OK
• checking Rd line widths ... OK
• checking Rd cross-references ... OK
• checking for missing documentation entries ... OK
• checking for code/documentation mismatches ... OK
• checking Rd \usage sections ... OK
• checking Rd contents ... OK
• checking for unstated dependencies in examples ... OK
• checking line endings in shell scripts ... OK
• checking line endings in C/C++/Fortran sources/headers ... OK
• checking line endings in Makefiles ... OK
• checking compilation flags in Makevars ... OK
• checking for GNU extensions in Makefiles ... OK
• checking for portable use of $(BLAS_LIBS) and $(LAPACK_LIBS) ... OK
• checking use of PKG_*FLAGS in Makefiles ... OK
• checking use of SHLIB_OPENMP_*FLAGS in Makefiles ... OK
• checking pragmas in C/C++ headers and code ... OK
• checking compilation flags used ... OK
• checking compiled code ... OK
• checking examples ... [18s/23s] OK
• checking for unstated dependencies in ‘tests’ ... OK
• checking tests ... [9s/15s] ERROR   Running ‘testthat.R’ [9s/15s] Running the tests in ‘tests/testthat.R’ failed. Complete output:   > library(testthat)   > test_check("ff")   Loading required package: ff   Loading required package: bit      Attaching package: 'bit'      The following object is masked from 'package:base':          xor      Attaching package ff   - getOption("fftempdir")=="/tmp/RtmpM5DTe6/working_dir/Rtmp4Ki0vb/ff"      - getOption("ffextension")=="ff"      - getOption("ffdrop")==TRUE      - getOption("fffinonexit")==TRUE      - getOption("ffpagesize")==65536      - getOption("ffcaching")=="mmnoflush" -- consider "ffeachflush" if your system stalls on large writes      - getOption("ffbatchbytes")==16777216 -- consider a different value for tuning your system      - getOption("ffmaxbytes")==536870912 -- consider a different value for tuning your system         Attaching package: 'ff'      The following objects are masked from 'package:utils':          write.csv, write.csv2      The following objects are masked from 'package:base':          is.factor, is.ordered          *** caught segfault ***   address 0x1, cause 'memory not mapped'      Traceback:    1: `[<-.ff_array`(`*tmp*`, , value = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L))    2: `[<-`(`*tmp*`, , value = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L))    3: update.ff(ret, from = initdata, delete = FALSE, bydim = bydim, BATCHSIZE = BATCHSIZE, BATCHBYTES = BATCHBYTES, VERBOSE = VERBOSE)    4: ff(initdata = initdata, length = length, levels = levels, ordered = ordered, dim = dim, dimorder = dimorder, bydim = bydim, symmetric = symmetric, fixdiag = fixdiag, names = names, dimnames = dimnames, ramclass = ramclass, ramattribs = ramattribs, vmode = vmode, update = update, pattern = pattern, filename = filename, readonly = FALSE, overwrite = overwrite, pagesize = pagesize, caching = caching, finalizer = finalizer, finonexit = finonexit, FF_RETURN = FF_RETURN, BATCHSIZE = BATCHSIZE, BATCHBYTES = BATCHBYTES, VERBOSE = VERBOSE)    5: assign("ret", ff(initdata = initdata, length = length, levels = levels, ordered = ordered, dim = dim, dimorder = dimorder, bydim = bydim, symmetric = symmetric, fixdiag = fixdiag, names = names, dimnames = dimnames, ramclass = ramclass, ramattribs = ramattribs, vmode = vmode, update = update, pattern = pattern, filename = filename, readonly = FALSE, overwrite = overwrite, pagesize = pagesize, caching = caching, finalizer = finalizer, finonexit = finonexit, FF_RETURN = FF_RETURN, BATCHSIZE = BATCHSIZE, BATCHBYTES = BATCHBYTES, VERBOSE = VERBOSE))    6: clone.ff(x, FF_RETURN = TRUE, filename = filename(x), overwrite = overwrite)    7: as.ff.default(r19)    8: as.ff(r19)    9: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))   10: withVisible(code)   11: withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message)   12: force(code)   13: withr::with_output_sink(path, withCallingHandlers(withVisible(code), warning = handle_warning, message = handle_message))   14: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)), ...)   15: quasi_capture(enquo(object), NULL, evaluate_promise)   16: expect_silent(a19 <- as.ff(r19))   17: eval(code, test_env)   18: eval(code, test_env)   19: 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)   20: doTryCatch(return(expr), name, parentenv, handler)   21: tryCatchOne(expr, names, parentenv, handlers[[1L]])   22: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])   23: doTryCatch(return(expr), name, parentenv, handler)   24: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])   25: tryCatchList(expr, classes, parentenv, handlers)   26: 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) { })   27: test_code(desc, code, env = parent.frame(), reporter = reporter)   28: test_that("lots of stuff related to dims work", { vm <- "quad" expect_silent(r <- as.vmode(integer(), vmode = vm)) expect_silent(r0 <- as.vmode(integer(0), vmode = vm)) expect_silent(r1 <- as.vmode(integer(1), vmode = vm)) expect_silent(r00 <- as.vmode(integer(0), vmode = vm)) expect_silent(r01 <- as.vmode(integer(0), vmode = vm)) expect_silent(r10 <- as.vmode(integer(0), vmode = vm)) expect_silent(r11 <- as.vmode(integer(1), vmode = vm)) expect_silent(r09 <- as.vmode(integer(0), vmode = vm)) expect_silent(r19 <- as.vmode(integer(9), vmode = vm)) expect_silent(r90 <- as.vmode(integer(0), vmode = vm)) expect_silent(r91 <- as.vmode(integer(9), vmode = vm)) expect_silent(r99 <- as.vmode(integer(81), vmode = vm)) expect_error(dim(r) <- integer()) expect_silent(dim(r) <- NULL) expect_silent(dim(r0) <- 0L) expect_silent(dim(r1) <- 1L) expect_silent(dim(r00) <- c(0L, 0L)) expect_silent(dim(r01) <- c(0L, 1L)) expect_silent(dim(r10) <- c(1L, 0L)) expect_silent(dim(r11) <- c(1L, 1L)) expect_silent(dim(r09) <- c(0L, 9L)) expect_silent(dim(r19) <- c(1L, 9L)) expect_silent(dim(r90) <- c(9L, 0L)) expect_silent(dim(r91) <- c(9L, 1L)) expect_silent(dim(r99) <- c(9L, 9L)) expect_silent(d <- NULL) expect_silent(d0 <- list(character())) expect_silent(d1 <- list(LETTERS[1])) expect_silent(d00 <- list(character(), character())) expect_silent(d01 <- list(character(), letters[1])) expect_silent(d10 <- list(LETTERS[1], character())) expect_silent(d11 <- list(LETTERS[1], letters[1])) expect_silent(d09 <- list(character(), letters[1:9])) expect_silent(d19 <- list(LETTERS[1], letters[1:9])) expect_silent(d90 <- list(LETTERS[1:9], character())) expect_silent(d91 <- list(LETTERS[1:9], letters[1])) expect_silent(d99 <- list(LETTERS[1:9], letters[1:9])) expect_silent(dimnames(r) <- d) expect_silent(dimnames(r0) <- d0) expect_silent(dimnames(r1) <- d1) expect_silent(dimnames(r00) <- d00) expect_silent(dimnames(r01) <- d01) expect_silent(dimnames(r10) <- d10) expect_silent(dimnames(r11) <- d11) expect_silent(dimnames(r09) <- d09) expect_silent(dimnames(r19) <- d19) expect_silent(dimnames(r90) <- d90) expect_silent(dimnames(r91) <- d91) expect_silent(dimnames(r99) <- d99) expect_silent(a <- as.ff(r)) expect_silent(a0 <- as.ff(r0)) expect_silent(a1 <- as.ff(r1)) expect_silent(a00 <- as.ff(r00)) expect_silent(a01 <- as.ff(r01)) expect_silent(a10 <- as.ff(r10)) expect_silent(a11 <- as.ff(r11)) expect_silent(a09 <- as.ff(r09)) expect_silent(a19 <- as.ff(r19)) expect_silent(a90 <- as.ff(r90)) expect_silent(a91 <- as.ff(r91)) expect_silent(a99 <- as.ff(r99)) expect_equal(a[], r[]) expect_equal(a0[], r0[]) expect_equal(a1[], r1[]) expect_equal(a00[], r00[]) expect_equal(a01[], r01[]) expect_equal(a10[], r10[]) expect_equal(a11[], r11[]) expect_equal(a09[], r09[]) expect_equal(a19[], r19[]) expect_equal(a90[], r90[]) expect_equal(a91[], r91[]) expect_equal(a99[], r99[]) expect_silent(c <- clone(a)) expect_silent(c0 <- clone(a0)) expect_silent(c1 <- clone(a1)) expect_silent(c00 <- clone(a00)) expect_silent(c01 <- clone(a01)) expect_silent(c10 <- clone(a10)) expect_silent(c11 <- clone(a11)) expect_silent(c09 <- clone(a09)) expect_silent(c19 <- clone(a19)) expect_silent(c90 <- clone(a90)) expect_silent(c91 <- clone(a91)) expect_silent(c99 <- clone(a99)) expect_equal(a[], c[]) expect_equal(a0[], c0[]) expect_equal(a1[], c1[]) expect_equal(a00[], c00[]) expect_equal(a01[], c01[]) expect_equal(a10[], c10[]) expect_equal(a11[], c11[]) expect_equal(a09[], c09[]) expect_equal(a19[], c19[]) expect_equal(a90[], c90[]) expect_equal(a91[], c91[]) expect_equal(a99[], c99[]) expect_error(f <- ff(0, vmode = vm, dim = integer()), "'dims' cannot be of length 0") expect_silent(f <- ff(0, vmode = vm)) expect_silent(f0 <- ff(0, vmode = vm, dim = 0L)) expect_silent(f1 <- ff(0, vmode = vm, dim = 1L)) expect_silent(f00 <- ff(0, vmode = vm, dim = c(0L, 0L))) expect_silent(f01 <- ff(0, vmode = vm, dim = c(0L, 1L))) expect_silent(f10 <- ff(0, vmode = vm, dim = c(1L, 0L))) expect_silent(f11 <- ff(0, vmode = vm, dim = c(1L, 1L))) expect_silent(f09 <- ff(0, vmode = vm, dim = c(0L, 9L))) expect_silent(f19 <- ff(0, vmode = vm, dim = c(1L, 9L))) expect_silent(f90 <- ff(0, vmode = vm, dim = c(9L, 0L))) expect_silent(f91 <- ff(0, vmode = vm, dim = c(9L, 1L))) expect_silent(f99 <- ff(0, vmode = vm, dim = c(9L, 9L))) expect_silent(dimnames(f) <- d) expect_silent(dimnames(f0) <- d0) expect_silent(dimnames(f1) <- d1) expect_silent(dimnames(f00) <- d00) expect_silent(dimnames(f01) <- d01) expect_silent(dimnames(f10) <- d10) expect_silent(dimnames(f11) <- d11) expect_silent(dimnames(f09) <- d09) expect_silent(dimnames(f19) <- d19) expect_silent(dimnames(f90) <- d90) expect_silent(dimnames(f91) <- d91) expect_silent(dimnames(f99) <- d99) expect_equal(dimnames(r), dimnames(f)) expect_equal(dimnames(r1), dimnames(f1)) expect_equal(dimnames(r11), dimnames(f11)) expect_equal(dimnames(r19), dimnames(f19)) expect_equal(dimnames(r91), dimnames(f91)) expect_equal(dimnames(r99), dimnames(f99)) expect_equal(a0[], f0[]) expect_equal(a1[], f1[]) expect_equal(a00[], f00[]) expect_equal(a01[], f01[]) expect_equal(a10[], f10[]) expect_equal(a11[], f11[]) expect_equal(a09[], f09[]) expect_equal(a19[], f19[]) expect_equal(a90[], f90[]) expect_equal(a91[], f91[]) expect_equal(a99[], f99[]) for (frc in list(f00, f01, f10, f11, f09, f19, f90, f91, f99)) { d <- dim(frc) i <- seq_len(d[[1]]) j <- seq_len(d[[2]]) k <- seq_len(prod(d)) ftmp <- clone(frc) rtmp <- ftmp[] rtmp[] <- rtmp[] + 1L ftmp[] <- rtmp[] expect_equal(ftmp[], rtmp[]) rtmp[, ] <- rtmp[, ] + 1L ftmp[, ] <- rtmp[, ] expect_equal(ftmp[], rtmp[]) rtmp[k] <- rtmp[k] + 1L ftmp[k] <- rtmp[k] expect_equal(ftmp[], rtmp[]) rtmp[i, ] <- rtmp[i, ] - 1L ftmp[i, ] <- rtmp[i, ] expect_equal(ftmp[], rtmp[]) rtmp[, j] <- rtmp[, j] - 1L ftmp[, j] <- rtmp[, j] expect_equal(ftmp[], rtmp[]) rtmp[i, j] <- rtmp[i, j] - 1L ftmp[i, j] <- rtmp[i, j] expect_equal(ftmp[], rtmp[]) close(ftmp) delete(ftmp) } for (frc in list(f00, f01, f10, f11, f09, f19, f90, f91, f99)) { d <- dim(frc) i <- seq_len(d[[1]]) j <- seq_len(d[[2]]) k <- seq_len(prod(d)) ftmp <- clone(frc) rtmp <- ftmp[] expect_equal(swap(ftmp, 1L), { ret <- swap(rtmp, 1L) vmode(ret) <- vm ret }) expect_equal(ftmp[], rtmp[]) expect_equal(swap(ftmp, 1L, , ), { ret <- swap(rtmp, 1L, , ) vmode(ret) <- vm ret }) expect_equal(ftmp[], rtmp[]) expect_equal(swap(ftmp, 1L, k), { ret <- swap(rtmp, 1L, k) vmode(ret) <- vm ret }) expect_equal(ftmp[], rtmp[]) expect_equal(swap(ftmp, 1L, i, ), { ret <- swap(rtmp, 1L, i, ) vmode(ret) <- vm ret }) expect_equal(ftmp[], rtmp[]) expect_equal(swap(ftmp, 1L, , j), { ret <- swap(rtmp, 1L, , j) vmode(ret) <- vm ret }) expect_equal(ftmp[], rtmp[]) expect_equal(swap(ftmp, 1L, i, j), { ret <- swap(rtmp, 1L, i, j) vmode(ret) <- vm ret }) expect_equal(ftmp[], rtmp[]) close(ftmp) delete(ftmp) } for (frc in list(f00, f01, f10, f11, f09, f19, f90, f91, f99)) { d <- dim(frc) i <- seq_len(d[[1]]) j <- seq_len(d[[2]]) k <- seq_len(prod(d)) ftmp <- clone(frc) rtmp <- ftmp[] expect_silent(rtmp[] <- 1L) expect_silent(ftmp[] <- 1L) expect_equal(ftmp[], rtmp[]) expect_silent(rtmp[, ] <- 2L) expect_silent(ftmp[, ] <- 2L) expect_equal(ftmp[], rtmp[]) expect_silent(rtmp[k] <- 3L) expect_silent(ftmp[k] <- 3L) expect_equal(ftmp[], rtmp[]) expect_silent(rtmp[i, ] <- 0L) expect_silent(ftmp[i, ] <- 0L) expect_equal(ftmp[], rtmp[]) expect_silent(rtmp[, j] <- 1L) expect_silent(ftmp[, j] <- 1L) expect_equal(ftmp[], rtmp[]) expect_silent(rtmp[i, j] <- 2L) expect_silent(ftmp[i, j] <- 2L) expect_equal(ftmp[], rtmp[]) close(ftmp) delete(ftmp) } dims <- list(f00, f01, f10, f11, f09, f19, f90, f91, f99) nams <- sapply(dims, function(x) paste(dim(x), sep = "", collapse = "")) dres <- array(list(NULL), dim = c(length(nams), length(nams)), dimnames = list(obj = nams, dim = nams)) fres <- array(list(NULL), dim = c(length(nams), length(nams)), dimnames = list(obj = nams, dim = nams)) for (frc in dims) { for (drc in dims) { dtmp <- dim(drc) dnam <- paste(dim(drc), sep = "", collapse = "") fnam <- paste(dim(frc), sep = "", collapse = "") ftmp <- clone(frc) rtmp <- ftmp[] etmp <- try(dim(rtmp) <- dtmp, silent = TRUE) if (inherits(etmp, "try-error")) { dres[[fnam, dnam]] <- as.character(etmp) } etmp <- try(dim(ftmp) <- dtmp, silent = TRUE) if (inherits(etmp, "try-error")) { fres[[fnam, dnam]] <- as.character(etmp) } close(ftmp) delete(ftmp) } } dok <- apply(dres, 1:2, function(x) { is.null(x[[1]]) }) fok <- apply(fres, 1:2, function(x) { is.null(x[[1]]) }) expect_equal(dok, structure(c(TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE), .Dim = c(9L, 9L), .Dimnames = list(obj = c("00", "01", "10", "11", "09", "19", "90", "91", "99"), dim = c("00", "01", "10", "11", "09", "19", "90", "91", "99")))) expect_equal(fok, structure(c(TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE), .Dim = c(9L, 9L), .Dimnames = list(obj = c("00", "01", "10", "11", "09", "19", "90", "91", "99"), dim = c("00", "01", "10", "11", "09", "19", "90", "91", "99")))) rm(rtmp, ftmp, dtmp, etmp, dnam, fnam, dims, nams, dres, fres, dok, fok) gc() rm(i, j, k, vm, ret) rm(frc, drc) rm(d, d0, d1, d00, d01, d10, d11, d09, d19, d90, d91, d99) rm(r, r0, r1, r00, r01, r10, r11, r09, r19, r90, r91, r99) rm(a, a0, a1, a00, a01, a10, a11, a09, a19, a90, a91, a99) rm(c, c0, c1, c00, c01, c10, c11, c09, c19, c90, c91, c99) rm(f, f0, f1, f00, f01, f10, f11, f09, f19, f90, f91, f99)})   29: eval(code, test_env)   30: eval(code, test_env)   31: 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)   32: doTryCatch(return(expr), name, parentenv, handler)   33: tryCatchOne(expr, names, parentenv, handlers[[1L]])   34: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])   35: doTryCatch(return(expr), name, parentenv, handler)   36: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])   37: tryCatchList(expr, classes, parentenv, handlers)   38: 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) { })   39: test_code(test = NULL, code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())   40: source_file(path, env = env(env), desc = desc, error_call = error_call)   41: FUN(X[[i]], ...)   42: lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call)   43: doTryCatch(return(expr), name, parentenv, handler)   44: tryCatchOne(expr, names, parentenv, handlers[[1L]])   45: tryCatchList(expr, classes, parentenv, handlers)   46: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})   47: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call))   48: test_files_serial(test_dir = test_dir, test_package = test_package, test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, desc = desc, load_package = load_package, error_call = error_call)   49: test_files(test_dir = path, test_paths = test_paths, test_package = package, reporter = reporter, load_helpers = load_helpers, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, load_package = load_package, parallel = parallel)   50: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")   51: test_check("ff")   An irrecoverable exception occurred. R is aborting now ...
• checking PDF version of manual ... [18s/27s] OK
• checking HTML version of manual ... [10s/14s] OK
• checking for non-standard things in the check directory ... OK
• checking for detritus in the temp directory ... OK
• DONE

Status: 1 ERROR