Update snaps

ropensci · Apr 29, 2024 · 9df933d · 9df933d
1 parent 8c022ef
commit 9df933d
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -87,4 +87,4 @@ Encoding: UTF-8
 Language: en-US
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,10 @@
 # waywiser (development version)
 
+* `ww_multi_scale()`, when called with raster arguments (either to `data` or to `truth`
+   and `estimate`) and a classification metric set, will now convert `truth` and 
+   `estimate`to factors before passing them to the metric set. Thanks to @nowosad
+   for the report in #60 (#61).
+
 # waywiser 0.5.1
 
 * `ww_multi_scale()` now warns if you provide `crs` as an argument to `sf::st_make_grid()` via `...`. Grids created by this function will always take their CRS from `data`.

diff --git a/tests/testthat/_snaps/misc.md b/tests/testthat/_snaps/misc.md
@@ -8,6 +8,7 @@
       Number of nonzero links: 85 
       Percentage nonzero weights: 1.176471 
       Average number of links: 1 
+      25 disjoint connected subgraphs
       Non-symmetric neighbours list
 
 ---
@@ -65,6 +66,7 @@
       Number of nonzero links: 85 
       Percentage nonzero weights: 1.176471 
       Average number of links: 1 
+      25 disjoint connected subgraphs
       Non-symmetric neighbours list
 
 ---
@@ -113,6 +115,7 @@
       Number of nonzero links: 85 
       Percentage nonzero weights: 1.176471 
       Average number of links: 1 
+      25 disjoint connected subgraphs
       Non-symmetric neighbours list
       
       Weights style: W 

diff --git a/tests/testthat/test-multi_scale.R b/tests/testthat/test-multi_scale.R
@@ -778,7 +778,7 @@ test_that("Passing arguments via `...` errors when using grids", {
   )
 })
 
-test_that("ww_multi_scale with raster args can handle classification metrics", {
+test_that("ww_multi_scale with raster args can handle classification metrics (#60)", {
   l1 <- terra::rast(matrix(sample(1:10, 100, TRUE), nrow = 10))
   l2 <- l1
 
@@ -794,7 +794,7 @@ test_that("ww_multi_scale with raster args can handle classification metrics", {
 
 })
 
-test_that("ww_multi_scale with raster data can handle classification metrics", {
+test_that("ww_multi_scale with raster data can handle classification metrics (#60)", {
   l1 <- terra::rast(matrix(sample(1:10, 100, TRUE), nrow = 10))
   l2 <- l1