From 6088ec9cbcb2d8d14e089fa50ec7c5b8200a1402 Mon Sep 17 00:00:00 2001
From: Jakub Miszczyszyn <kuba.miszczyszyn@gmail.com>
Date: Sun, 18 Feb 2024 21:06:28 +0100
Subject: [PATCH] Support for downloading from GUGIK with rgugik package

---
 NAMESPACE                           |  1 +
 R/dem_download_big_area_rgugik.R    | 23 +++++++++++++++++++++++
 man/dem_download_big_area_rgugik.Rd | 20 ++++++++++++++++++++
 3 files changed, 44 insertions(+)
 create mode 100644 R/dem_download_big_area_rgugik.R
 create mode 100644 man/dem_download_big_area_rgugik.Rd

diff --git a/NAMESPACE b/NAMESPACE
index 26b8c85..217263b 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -16,4 +16,5 @@ export(define_nir)
 export(define_red)
 export(define_rededge)
 export(define_yellow)
+export(dem_download_big_area_rgugik)
 export(ortho_download_big_area_rgugik)
diff --git a/R/dem_download_big_area_rgugik.R b/R/dem_download_big_area_rgugik.R
new file mode 100644
index 0000000..f90a752
--- /dev/null
+++ b/R/dem_download_big_area_rgugik.R
@@ -0,0 +1,23 @@
+
+#' Title
+#'
+#' @param x - path to your shapefile
+#' @param y - integer of length 1 or 2, number of grid cells in x and y direction (columns, rows)
+#'
+#' @return
+#' @export
+#'
+#' @examples
+dem_download_big_area_rgugik=function(x,y){
+  aoi=sf::st_read(x)
+  grid=sf::st_make_grid(aoi, n=y)
+  aoi=sf::st_intersection(aoi,grid)
+  plot(aoi)
+  result=data_frame()
+  for (i in 1:length(aoi$geometry)) {
+    req_df=rgugik::DEM_request(aoi[i,])
+    result=dplyr::bind_rows(req_df, result)
+  }
+  return(result)
+  print("This tools is based on https://github.com/kadyb/rgugik")
+}
diff --git a/man/dem_download_big_area_rgugik.Rd b/man/dem_download_big_area_rgugik.Rd
new file mode 100644
index 0000000..c770087
--- /dev/null
+++ b/man/dem_download_big_area_rgugik.Rd
@@ -0,0 +1,20 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/dem_download_big_area_rgugik.R
+\name{dem_download_big_area_rgugik}
+\alias{dem_download_big_area_rgugik}
+\title{Title}
+\usage{
+dem_download_big_area_rgugik(x, y)
+}
+\arguments{
+\item{x}{\itemize{
+\item path to your shapefile
+}}
+
+\item{y}{\itemize{
+\item integer of length 1 or 2, number of grid cells in x and y direction (columns, rows)
+}}
+}
+\description{
+Title
+}