pk_boundary_box.R 643 B

123456789101112131415161718192021222324252627
  1. #' Piirkonna piirikast BB
  2. #'
  3. #' Funktsioon leiab etteantud piirkonnale piirikasti (boundary box). Tulemuseks on qgis_vektor.
  4. #' @param x object of class sf, sfc or sfg.
  5. #' @keywords piirkond, boundarybox
  6. #' @export
  7. #' @examples
  8. #' ## Not run:
  9. #' ## class(pk)
  10. #' ## > [1] "sf" ...
  11. #' ##
  12. #' ## pk_bbox(x = pk)
  13. #' ##
  14. #' ## End(**Not run**)
  15. pk_bbox <- function(x = NULL) {
  16. if (!is.null(x) && sf::st_is_valid(x)) {
  17. result <- qgisprocess::qgis_run_algorithm(
  18. algorithm = "native:boundingboxes",
  19. INPUT = x,
  20. .quiet = TRUE
  21. )
  22. # sf::read_sf(qgisprocess::qgis_output(result, "OUTPUT"))
  23. result
  24. } else {
  25. NULL
  26. }
  27. }