Running examples in ‘eHDPrep-Ex.R’ failed
The error most likely occurred in:

> ### Name: identify_inconsistency
> ### Title: Identify inconsistencies in a dataset
> ### Aliases: identify_inconsistency
> 
> ### ** Examples
> 
> require(tibble)
Loading required package: tibble
> # example with synthetic dataset on number of bean counts
> # there is a lot going on in the function so a simple dataset aids this example
> #
> # creating `data`:
> beans <- tibble::tibble(red_beans = 1:15,
+ blue_beans = 1:15,
+ total_beans = 1:15*2,
+ red_bean_summary = c(rep("few_beans",9), rep("many_beans",6)))
> #
> # creating `consis_tbl`
> bean_rules <- tibble::tribble(~varA, ~varB, ~lgl_test, ~varA_boundaries, ~varB_boundaries,
+ "red_beans", "blue_beans", "==", NA, NA,
+ "red_beans", "total_beans", "<=", NA,NA,
+ "red_beans", "red_bean_summary", NA, "1:9", "few_beans",
+ "red_beans", "red_bean_summary", NA, "10:15", "many_beans")
> 
> identify_inconsistency(beans, bean_rules)
No inconsistencies were found.
> 
> # creating some inconsistencies as examples
> beans[1, "red_bean_summary"] <- "many_beans"
> beans[1, "red_beans"] <- 10
> 
> identify_inconsistency(beans, bean_rules)
Warning: One or more inconsistencies were identified. They are shown in the returned tibble.
# A tibble: 2 × 8
  var_a     var_b       lgl_test var_a_range var_b_range   row values_a values_b
  <chr>     <chr>       <chr>    <chr>       <chr>       <int> <chr>    <chr>   
1 red_beans blue_beans  ==       <NA>        <NA>            1 10       1       
2 red_beans total_beans <=       <NA>        <NA>            1 10       2       
> 
> 
> 
> 
> cleanEx()

detaching ‘package:tibble’


 *** caught segfault ***
address 0x0, cause 'unknown'

Traceback:
 1: detach(this, character.only = TRUE, unload = unload && (this %notin%     exclusions), force = TRUE)
 2: doTryCatch(return(expr), name, parentenv, handler)
 3: tryCatchOne(expr, names, parentenv, handlers[[1L]])
 4: tryCatchList(expr, classes, parentenv, handlers)
 5: 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))})
 6: try(detach(this, character.only = TRUE, unload = unload && (this %notin%     exclusions), force = TRUE))
 7: tools:::detachPackages(newitems)
 8: cleanEx()
An irrecoverable exception occurred. R is aborting now ...