R/is_grtsdb.R

In inbo/grtsdb: Create a Sampling Frame Using GRTS

#' Check is an object is a grtsdb
#' @param grtsdb the grtsdb object
#' @export
#' @importFrom assertthat has_name
#' @family utility
is_grtsdb <- function(grtsdb = getOption("grtsdb", "grts.sqlite")) {
  if (!inherits(grtsdb, "SQLiteConnection")) {
    return(FALSE)
  }
  return(TRUE)
}