Show top-level function in error message

[mikemahoney218]

Current HEAD:

library(spatialsample)
drought_sf <- sf::st_as_sf(
  expand.grid(
    x = seq(995494, 1018714, 430),
    y = seq(1019422, by = 430, length.out = 55)
  ),
  coords = c("x", "y"),
  crs = 7760
)
spatial_block_cv(drought_sf, expand_bbox = 0)
#> Error in `generate_folds_from_blocks()` at spatialsample/R/spatial_block_cv.R:204:2:
#> ! Some observations fell exactly on block boundaries, meaning they were assigned to multiple assessment sets unexpectedly.
#> ℹ Try setting a different `expand_bbox` value, an `offset`, or use a different number of folds.
#> Backtrace:
#>     ▆
#>  1. └─spatialsample::spatial_block_cv(drought_sf, expand_bbox = 0)
#>  2.   └─spatialsample (local) block_fun(method) at spatialsample/R/spatial_block_cv.R:129:4
#>  3.     └─spatialsample:::random_block_cv(...) at spatialsample/R/spatial_block_cv.R:106:4
#>  4.       └─spatialsample:::generate_folds_from_blocks(data, centroids, grid_blocks, v, n, radius, buffer) at spatialsample/R/spatial_block_cv.R:204:2
#>  5.         └─rlang::abort(...) at spatialsample/R/spatial_block_cv.R:264:4

^{Created on 2023-11-14 with reprex v2.0.2}

This PR:

library(spatialsample)
drought_sf <- sf::st_as_sf(
  expand.grid(
    x = seq(995494, 1018714, 430),
    y = seq(1019422, by = 430, length.out = 55)
  ),
  coords = c("x", "y"),
  crs = 7760
)
spatial_block_cv(drought_sf, expand_bbox = 0)
#> Error in `spatial_block_cv()`:
#> ! Some observations fell exactly on block boundaries, meaning they were assigned to multiple assessment sets unexpectedly.
#> ℹ Try setting a different `expand_bbox` value, an `offset`, or use a different number of folds.
#> Backtrace:
#>     ▆
#>  1. └─spatialsample::spatial_block_cv(drought_sf, expand_bbox = 0)
#>  2.   └─spatialsample (local) block_fun(method) at spatialsample/R/spatial_block_cv.R:129:4
#>  3.     └─spatialsample:::random_block_cv(...) at spatialsample/R/spatial_block_cv.R:106:4
#>  4.       └─spatialsample:::generate_folds_from_blocks(...) at spatialsample/R/spatial_block_cv.R:205:2
#>  5.         └─rlang::abort(...) at spatialsample/R/spatial_block_cv.R:265:4

^{Created on 2023-11-14 with reprex v2.0.2}

[mikemahoney218]

I was surprised this didn't need a snapshot to be updated, but apparently one of the differences in expect_snapshot_error() vs expect_snapshot(error = TRUE) is that the snapshot no longer includes this part of the error message:

spatialsample/tests/testthat/_snaps/spatial_block_cv.md

Lines 74 to 78 in ff0291b

	# duplicated observations in assessment sets throws an error
	Some observations fell exactly on block boundaries, meaning they were assigned to multiple assessment sets unexpectedly.
	i Try setting a different `expand_bbox` value, an `offset`, or use a different number of folds.

[github-actions]

This pull request has been automatically locked. If you believe you have found a related problem, please file a new issue (with a reprex: https://reprex.tidyverse.org) and link to this issue.