test <- expand.grid(
  x = c(0.20, 0.45, 0.70, 0.95), y = c(0.20, 0.45, 0.70, 0.95))

test$value <- c(1,1,2,2,
                1,1,2,2,
                3,3,4,4,
                3,3,4,4) + runif(16, min = -.4, max = .4)

t_rast <- sdc_raster(test[,1:2], variable = test$value, r = 0.25, min_count = 2)
#plot(t_rast)

qt <- t_rast |> protect_quadtree()
#plot(qt)

t_rast <- sdc_raster(test[,1:2], variable = test$value, r = 0.25, min_count = 5)
#plot(t_rast)

qt <- t_rast |> protect_quadtree()
#plot(qt)


t2 <- rbind(
  test, test
) |> head(-1)

t_rast <- t2[,1:2] |> sdc_raster(variable = t2$value, r = 0.25, min_count = 2)


s_exp <- logical(16)
s_exp[4] <- TRUE

s <- is_sensitive(t_rast)[]
expect_equal(s, s_exp)
#plot(t_rast)

qt <- t_rast |> protect_quadtree()

qt
#plot(qt)