@@ -132,7 +132,7 @@ test_that("Passed RS_Envelope with raster", {
132132test_that(" Passed RS_NumBands with raster" , {
133133 # # Load
134134 sdf_name <- random_string(" spatial_sdf" )
135- binary_sdf <- spark_read_binary(sc , dir = test_data(" raster" ), name = sdf_name )
135+ binary_sdf <- spark_read_binary(sc , dir = test_data(" raster/test3.tif " ), name = sdf_name )
136136
137137 a <-
138138 binary_sdf %> %
@@ -142,14 +142,11 @@ test_that("Passed RS_NumBands with raster", {
142142 ) %> %
143143 select(nbands ) %> %
144144 collect()
145-
146145 expect_equal(
147146 a %> % as.list(),
148- list (nbands = c(1 , 1 , 4 ))
149-
147+ list (nbands = c(4 ))
150148 )
151149
152-
153150 # # Cleanup
154151 sc %> % DBI :: dbExecute(paste0(" DROP TABLE " , sdf_name ))
155152 rm(a )
@@ -185,7 +182,7 @@ test_that("Passed RS_Value with raster", {
185182test_that(" Passed RS_Values with raster" , {
186183 # # Load
187184 sdf_name <- random_string(" spatial_sdf" )
188- binary_sdf <- spark_read_binary(sc , dir = test_data(" raster" ), name = sdf_name )
185+ binary_sdf <- spark_read_binary(sc , dir = test_data(" raster/test1.tiff " ), name = sdf_name )
189186
190187 a <-
191188 binary_sdf %> %
@@ -195,10 +192,9 @@ test_that("Passed RS_Values with raster", {
195192 ) %> %
196193 select(val ) %> %
197194 collect()
198-
199195 expect_equal(
200196 a %> % as.list(),
201- list (val = list (c(255 , NA_real_ ), c( 255 , NA_real_ ), c( NA_real_ , NA_real_ ) ))
197+ list (val = list (c(255 , NA_real_ )))
202198
203199 )
204200
0 commit comments