sample_dem_data(): upgrade, export and use in tests

Author: brownag

NAMESPACE

@@ -2,6 +2,7 @@
 
 export(check_whitebox_binary)
 export(install_whitebox)
+export(sample_dem_data)
 export(wbt_absolute_value)
 export(wbt_accumulation_curvature)
 export(wbt_adaptive_filter)
@@ -539,3 +540,4 @@ export(wbt_z_scores)
 export(wbt_zlidar_to_las)
 export(wbt_zonal_statistics)
 importFrom(utils,browseURL)
+importFrom(utils,download.file)

PY2R/automation.py

@@ -361,10 +361,8 @@ def function_example(fun_name):
                         f.write('test_that("' + desc + '", {\n\n')
                         f.write("  skip_on_cran()\n")
                         f.write("  skip_if_not(check_whitebox_binary())\n")
-                        f.write(
-                            '  dem <- system.file("extdata", "DEM.tif", package = "whitebox")\n')
-                        f.write(
-                            '  ret <- {}(input = dem, output = "output.tif")\n'.format(wbt_fun_name))
+                        f.write('  dem <- sample_dem_data(); skip_if(dem == "")\n')
+                        f.write('  ret <- {}(input = dem, output = "output.tif")\n'.format(wbt_fun_name))
                         f.write('  expect_match(ret, "Elapsed Time")\n\n')
                         f.write("})\n")
                         print(test_file_path)

PY2R/tests/test-wbt_absolute_value.R

@@ -4,7 +4,7 @@ test_that("Calculates the absolute value of every cell in a raster", {
 
   skip_on_cran()
   skip_if_not(check_whitebox_binary())
-  dem <- system.file("extdata", "DEM.tif", package = "whitebox")
+  dem <- sample_dem_data(); skip_if(dem == "")
   ret <- wbt_absolute_value(input = dem, output = "output.tif")
   expect_match(ret, "Elapsed Time")
 

PY2R/tests/test-wbt_arc_cos.R

@@ -4,7 +4,7 @@ test_that("Returns the inverse cosine (arccos) of each values in a raster", {
 
   skip_on_cran()
   skip_if_not(check_whitebox_binary())
-  dem <- system.file("extdata", "DEM.tif", package = "whitebox")
+  dem <- sample_dem_data(); skip_if(dem == "")
   ret <- wbt_arc_cos(input = dem, output = "output.tif")
   expect_match(ret, "Elapsed Time")
 

PY2R/tests/test-wbt_arc_sin.R

@@ -4,7 +4,7 @@ test_that("Returns the inverse sine (arcsin) of each values in a raster", {
 
   skip_on_cran()
   skip_if_not(check_whitebox_binary())
-  dem <- system.file("extdata", "DEM.tif", package = "whitebox")
+  dem <- sample_dem_data(); skip_if(dem == "")
   ret <- wbt_arc_sin(input = dem, output = "output.tif")
   expect_match(ret, "Elapsed Time")
 

PY2R/tests/test-wbt_arc_tan.R

@@ -4,7 +4,7 @@ test_that("Returns the inverse tangent (arctan) of each values in a raster", {
 
   skip_on_cran()
   skip_if_not(check_whitebox_binary())
-  dem <- system.file("extdata", "DEM.tif", package = "whitebox")
+  dem <- sample_dem_data(); skip_if(dem == "")
   ret <- wbt_arc_tan(input = dem, output = "output.tif")
   expect_match(ret, "Elapsed Time")
 

PY2R/tests/test-wbt_arcosh.R

@@ -4,7 +4,7 @@ test_that("Returns the inverse hyperbolic cosine (arcosh) of each values in a ra
 
   skip_on_cran()
   skip_if_not(check_whitebox_binary())
-  dem <- system.file("extdata", "DEM.tif", package = "whitebox")
+  dem <- sample_dem_data(); skip_if(dem == "")
   ret <- wbt_arcosh(input = dem, output = "output.tif")
   expect_match(ret, "Elapsed Time")
 

PY2R/tests/test-wbt_arsinh.R

@@ -4,7 +4,7 @@ test_that("Returns the inverse hyperbolic sine (arsinh) of each values in a rast
 
   skip_on_cran()
   skip_if_not(check_whitebox_binary())
-  dem <- system.file("extdata", "DEM.tif", package = "whitebox")
+  dem <- sample_dem_data(); skip_if(dem == "")
   ret <- wbt_arsinh(input = dem, output = "output.tif")
   expect_match(ret, "Elapsed Time")
 

PY2R/tests/test-wbt_artanh.R

@@ -4,7 +4,7 @@ test_that("Returns the inverse hyperbolic tangent (arctanh) of each values in a
 
   skip_on_cran()
   skip_if_not(check_whitebox_binary())
-  dem <- system.file("extdata", "DEM.tif", package = "whitebox")
+  dem <- sample_dem_data(); skip_if(dem == "")
   ret <- wbt_artanh(input = dem, output = "output.tif")
   expect_match(ret, "Elapsed Time")
 

PY2R/tests/test-wbt_ceil.R

@@ -4,7 +4,7 @@ test_that("Returns the smallest (closest to negative infinity) value that is gre
 
   skip_on_cran()
   skip_if_not(check_whitebox_binary())
-  dem <- system.file("extdata", "DEM.tif", package = "whitebox")
+  dem <- sample_dem_data(); skip_if(dem == "")
   ret <- wbt_ceil(input = dem, output = "output.tif")
   expect_match(ret, "Elapsed Time")