R/util.R

In paleolimbot/arrowvctrs: An R Interface to the 'Apache Arrow' C API

xptr_addr <- function(x) {
  .Call(narrow_c_xptr_addr, x);
}

`%||%` <- function(rhs, lhs) {
  if (is.null(rhs)) lhs else rhs
}

new_data_frame <- function(x, nrow = length(x[[1]])) {
  structure(x, row.names = c(NA, nrow), class = "data.frame")
}

assert_arrow <- function(reason) {
  if (!requireNamespace("arrow", quietly = TRUE)) {
    stop(sprintf("Package 'arrow' is required for %s", reason), call. = FALSE)
  }
  invisible(TRUE)
}