Set the active level-of-detail state on a state
Examples
state <- xgeo_state(matrix(c(1, -1, 2, 0), nrow = 2))
state <- build_xgeo_lod(state, levels = c(4L, 8L), auto_threshold = 2L)
state <- set_xgeo_lod(state, name = "density_grid_spatial", level = "4")
state$lod$active
#> $name
#> [1] "density_grid_spatial"
#>
#> $level
#> [1] "4"
#>