error repair

j-miszczyszyn · Feb 18, 2024 · 9ff8f19 · 9ff8f19
1 parent f0cef35
commit 9ff8f19
Show file tree

Hide file tree

Showing 4 changed files with 26 additions and 2 deletions.
diff --git 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
@@ -1,9 +1,18 @@
+#' Title
+#'
+#' @param x
+#' @param y
+#'
+#' @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 <- tibble::tibble()
+  result <- data.frame()
   for (i in seq_len(nrow(aoi))) {
     req_df <- rgugik::DEM_request(aoi[i, ])
     result <- dplyr::bind_rows(result, req_df)

diff --git a/R/ortho_download_big_area_rgugik.R b/R/ortho_download_big_area_rgugik.R
@@ -12,7 +12,7 @@ ortho_download_big_area_rgugik <- function(x, y) {
   grid <- sf::st_make_grid(aoi, n = y)
   aoi <- sf::st_intersection(aoi, grid)
   plot(aoi)
-  result <- tibble::tibble()
+  result <- data.frame()
   for (i in seq_len(nrow(aoi))) {
     req_df <- rgugik::ortho_request(aoi[i, ])
     result <- dplyr::bind_rows(result, req_df)

diff --git a/man/dem_download_big_area_rgugik.Rd b/man/dem_download_big_area_rgugik.Rd