ruut/R/pk_boundary_box.R

#' Piirkonna piirikast BB
#'
#' Funktsioon leiab etteantud piirkonnale piirikasti (boundary box). Tulemuseks on qgis_vektor.
#' @param x	object of class sf, sfc or sfg.
#' @keywords piirkond, boundarybox
#' @export
#' @examples
#' ## Not run:
#' ## class(pk)
#' ## > [1] "sf" ...
#' ##
#' ## pk_bbox(x = pk)
#' ##
#' ## End(**Not run**)
pk_bbox <- function(x = NULL) {
  if (!is.null(x) && sf::st_is_valid(x)) {
    result <- qgisprocess::qgis_run_algorithm(
      algorithm = "native:boundingboxes",
      INPUT = x,
      .quiet = TRUE
    )
    # sf::read_sf(qgisprocess::qgis_output(result, "OUTPUT"))
    result
  } else {
    NULL
  }
}