issue repair

j-miszczyszyn · Feb 18, 2024 · 6efae68 · 6efae68
1 parent 8a414e8
commit 6efae68
Show file tree

Hide file tree

Showing 8 changed files with 68 additions and 36 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -16,4 +16,4 @@ export(define_nir)
 export(define_red)
 export(define_rededge)
 export(define_yellow)
-export(konwersja_temp)
+export(ortho_download_big_area_rgugik)
diff --git a/R/aoi_sample.R → R/aoi_sample.R.gitignore b/R/aoi_sample.R → R/aoi_sample.R.gitignore
diff --git a/R/konwersja_temp.R b/R/konwersja_temp.R
diff --git a/R/ortho_download_big_area_rgugik.R b/R/ortho_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
+ortho_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::ortho_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/R/raster_sample.R → R/raster_sample.R.gitignore b/R/raster_sample.R → R/raster_sample.R.gitignore
diff --git a/man/foRestools-package.Rd b/man/foRestools-package.Rd
diff --git a/man/konwersja_temp.Rd b/man/konwersja_temp.Rd
diff --git a/man/ortho_download_big_area_rgugik.Rd b/man/ortho_download_big_area_rgugik.Rd