R/is_eden.R

In troyhill/fireHydro: FireHydro tool

#' Check for EDEN object
#'
#' Checks object to see if it is an EDEN object
#'
#' @param x object to check
#' @export
#' @return logical
#' @examples
#' edenList <- list(date = Sys.Date(), data = raster::raster())
#' is.eden(edenList)
#' @export

is.eden <- function(x) {
  if (any(grepl(x = class(x), pattern = "eden"))) {
    return(TRUE)
  } else {
    return(FALSE)
  }
  # if(!all(c("date","data") %in% names(x))){
  #   stop("Missing ", c("date","data")[!(c("date","data") %in% names(x))])
  # }
  # return(all(c(all(c("date","data") %in% names(x)),
  #              inherits(x, "eden"))))
}