R Under development (unstable) (2025-03-03 r87871 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> ### test multiple file downloads manually ###
> 
> if (FALSE) { # change to TRUE to run the test
+ 
+   library(rgugik)
+   library(sf)
+ 
+   options(timeout = 600)
+   tmp = tempdir()
+ 
+   polygon = st_bbox(c(xmin = 512000, xmax = 517000, ymin = 357000, ymax = 360000),
+                     crs = "EPSG:2180")
+   polygon = st_as_sfc(polygon)
+ 
+   ### orthoimages
+   orthoimages = ortho_request(polygon) # n = 114
+   tile_download(orthoimages, outdir = tmp)
+ 
+   ### DEMs
+   DEMs = DEM_request(polygon) # n = 164
+   tile_download(DEMs, outdir = tmp)
+ 
+ }
> 
> proc.time()
   user  system elapsed 
   0.17    0.06    0.21