Running ‘testthat.R’ [10s/24s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > #Tests for BIEN package
  > 
  > library(testthat)
  > library(BIEN)
  Loading required package: RPostgreSQL
  Loading required package: DBI
  Type vignette("BIEN") or vignette("BIEN_tutorial") to get started
  Showtime, Synergy!  The BIEN database has been updated to version 4.2!  Functions should still work the same, but may now return different records due to the incorporation of more records and updated validations.
  > test_check("BIEN")
  
   *** caught segfault ***
  address 0x12, cause 'memory not mapped'
  
  Traceback:
   1: postgresqlExecStatement(conn, statement, ...)
   2: dbSendQuery(con, statement, ...)
   3: dbSendQuery(con, statement, ...)
   4: doTryCatch(return(expr), name, parentenv, handler)
   5: tryCatchOne(expr, names, parentenv, handlers[[1L]])
   6: tryCatchList(expr, classes, parentenv, handlers)
   7: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
   8: try(dbSendQuery(con, statement, ...))
   9: postgresqlQuickSQL(conn, statement, ...)
  10: dbGetQuery(con, statement = query)
  11: dbGetQuery(con, statement = query)
  12: .BIEN_sql(query, ...)
  13: BIEN_list_country("Bahamas", schema = schema)
  14: eval_bare(expr, quo_get_env(quo))
  15: quasi_label(enquo(object), label, arg = "object")
  16: expect_is(x, class)
  17: condition(object)
  18: expect_that(BIEN_list_country("Bahamas", schema = schema), is_a("data.frame"))
  19: eval(code, test_env)
  20: eval(code, test_env)
  21: 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)
  22: doTryCatch(return(expr), name, parentenv, handler)
  23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  24: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  25: doTryCatch(return(expr), name, parentenv, handler)
  26: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  27: tryCatchList(expr, classes, parentenv, handlers)
  28: 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) {    })
  29: test_code(desc, code, env = parent.frame(), reporter = reporter)
  30: test_that("List functions return a dataframe", {    expect_that(BIEN_list_all(schema = schema), is_a("data.frame"))    expect_that(BIEN_list_country("Bahamas", schema = schema),         is_a("data.frame"))    expect_that(BIEN_list_county(country = "United States", state = "Michigan",         county = "Kent", cultivated = T, only.new.world = F,         schema = schema), is_a("data.frame"))    expect_that(BIEN_list_state(country = "United States", state = "Rhode Island",         schema = schema), is_a("data.frame"))})
  31: eval(code, test_env)
  32: eval(code, test_env)
  33: 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)
  34: doTryCatch(return(expr), name, parentenv, handler)
  35: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  36: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  37: doTryCatch(return(expr), name, parentenv, handler)
  38: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  39: tryCatchList(expr, classes, parentenv, handlers)
  40: 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) {    })
  41: test_code(NULL, exprs, env)
  42: source_file(path, child_env(env), wrap = wrap)
  43: FUN(X[[i]], ...)
  44: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  45: doTryCatch(return(expr), name, parentenv, handler)
  46: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  47: tryCatchList(expr, classes, parentenv, handlers)
  48: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  49: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  50: test_files(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,     wrap = wrap, load_package = load_package)
  51: 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,     wrap = wrap, load_package = load_package, parallel = parallel)
  52: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  53: test_check("BIEN")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault