fiddle with tests

njtierney · Mar 20, 2024 · b279a01 · b279a01
1 parent e8b2b8b
commit b279a01
Show file tree

Hide file tree

Showing 3 changed files with 49 additions and 56 deletions.
diff --git a/R/geotargets-option.R b/R/geotargets-option.R
@@ -6,15 +6,15 @@
 #' @param gdal_raster_driver character, length 1; set the driver used for raster
 #'   data in target store (default: `"GTiff"`). Options for driver names can be
 #'   found here: <https://gdal.org/drivers/raster/index.html>
-#' @param gdla_raster_creation_options character, length 1; set the GDAL creation options
+#' @param gdal_raster_creation_options character; set the GDAL creation options
 #'   used when writing raster files to target store (default: `""`). You may
 #'   specify multiple values e.g. `c("COMPRESS=DEFLATE", "TFW=YES")`. Each GDAL
 #'   driver supports a unique set of creation options. For example, with the
 #'   default `"GTiff"` driver:
 #'   <https://gdal.org/drivers/raster/gtiff.html#creation-options>
 #' @param gdal_vector_driver character, length 1; set the file type used for
 #' vector data in target store (default: `"GeoJSON"`).
-#' @param gdal_vector_creation_options character, length 1; set the GDAL layer creation
+#' @param gdal_vector_creation_options character; set the GDAL layer creation
 #'   options used when writing vector files to target store (default:
 #'   `"ENCODING=UTF-8"`). You may specify multiple values e.g.
 #'   `c("WRITE_BBOX=YES", "COORDINATE_PRECISION=10")`. Each GDAL driver supports

diff --git a/man/geotargets-options.Rd b/man/geotargets-options.Rd
diff --git a/tests/testthat/test-tar-terra.R b/tests/testthat/test-tar-terra.R
@@ -1,50 +1,50 @@
 # test_that() #Included to make RStudio recognize this file as a test
 targets::tar_test("tar_terra_rast() works", {
-  geotargets::geotargets_option_set("raster_gdal_creation_options", c("COMPRESS=DEFLATE", "TFW=YES"))
-  targets::tar_script({
-    list(
-      geotargets::tar_terra_rast(
-        test_terra_rast,
-        terra::rast(system.file("ex/elev.tif", package = "terra"))
-      )
+    # geotargets::geotargets_option_set(gdal_raster_creation_options = c("COMPRESS=DEFLATE", "TFW=YES"))
+    targets::tar_script({
+        list(
+            geotargets::tar_terra_rast(
+                test_terra_rast,
+                terra::rast(system.file("ex/elev.tif", package = "terra"))
+            )
+        )
+    })
+    targets::tar_make()
+    x <- targets::tar_read(test_terra_rast)
+    expect_s4_class(x, "SpatRaster")
+    expect_snapshot(
+        x
     )
-  })
-  targets::tar_make()
-  x <- targets::tar_read(test_terra_rast)
-  expect_s4_class(x, "SpatRaster")
-  expect_snapshot(
-      x
-  )
 })
 
 targets::tar_test("tar_terra_vect() works", {
-  targets::tar_script({
-    lux_area <- function(projection = "EPSG:4326") {
-      terra::project(
-        terra::vect(system.file("ex", "lux.shp",
-          package = "terra"
-        )),
-        projection
-      )
-    }
-    list(
-      geotargets::tar_terra_vect(
-        test_terra_vect,
-        lux_area()
-      ),
-      geotargets::tar_terra_vect(
-          test_terra_vect_shz,
-          lux_area(),
-          filetype = "ESRI Shapefile"
-      )
-    )
-  })
-  targets::tar_make()
-  x <- targets::tar_read(test_terra_vect)
-  y <- targets::tar_read(test_terra_vect_shz)
-  expect_s4_class(x, "SpatVector")
-  expect_s4_class(y, "SpatVector")
-  expect_snapshot(x)
-  expect_snapshot(y)
-  expect_equal(terra::values(x), terra::values(y))
+    targets::tar_script({
+        lux_area <- function(projection = "EPSG:4326") {
+            terra::project(
+                terra::vect(system.file("ex", "lux.shp",
+                                        package = "terra"
+                )),
+                projection
+            )
+        }
+        list(
+            geotargets::tar_terra_vect(
+                test_terra_vect,
+                lux_area()
+            ),
+            geotargets::tar_terra_vect(
+                test_terra_vect_shz,
+                lux_area(),
+                filetype = "ESRI Shapefile"
+            )
+        )
+    })
+    targets::tar_make()
+    x <- targets::tar_read(test_terra_vect)
+    y <- targets::tar_read(test_terra_vect_shz)
+    expect_s4_class(x, "SpatVector")
+    expect_s4_class(y, "SpatVector")
+    expect_snapshot(x)
+    expect_snapshot(y)
+    expect_equal(terra::values(x), terra::values(y))
 })