R/is_null_externalptr.R

Defines functions is.null.externalptr

is.null.externalptr <- function(x) {
  if (methods::is(x, "externalptr")) {
   .Call(gribr_is_null_ptr, x)
  } else {
    stop("input is not of class 'externalptr'")
  }
}
nawendt/gribr documentation built on Oct. 24, 2023, 6:19 a.m.