R/required-pkgs-Spat.R

In tidyterra: 'tidyverse' Methods and 'ggplot2' Helpers for 'terra' Objects

#' Determine packages required by `Spat*` objects
#'
#' Determine packages required by `Spat*` objects.
#'
#' @return A character string of packages that are required.
#' @family generics.methods
#'
#' @inheritParams tidy.Spat
#'
#' @rdname required_pkgs.Spat
#' @name required_pkgs.Spat
#'
#' @section Methods:
#'
#' Implementation of [generics::required_pkgs()] method.
#'
#' @export
#' @importFrom generics required_pkgs
#'
#' @seealso [generics::required_pkgs()].
#'
#' @examples
#' file_path <- system.file("extdata/cyl_temp.tif", package = "tidyterra")
#'
#' library(terra)
#'
#' r <- rast(file_path)
#'
#' # With rasters
#' r
#' required_pkgs(r)
#'
#' #  With vectors
#' v <- vect(system.file("extdata/cyl.gpkg", package = "tidyterra"))
#' v
#' required_pkgs(v)
#'
required_pkgs.SpatRaster <- function(x, ...) {
  c("terra")
}

#' @export
#' @name required_pkgs.Spat
required_pkgs.SpatVector <- function(x, ...) {
  c("terra")
}

#' @export
#' @name required_pkgs.Spat
required_pkgs.SpatGraticule <- function(x, ...) {
  c("terra")
}

#' @export
#' @name required_pkgs.Spat
required_pkgs.SpatExtent <- function(x, ...) {
  c("terra")
}
#' @export
generics::required_pkgs