Suggest Connections for Disconnected Groups

Suggests nearest neighbors for connecting a disconnected group.

suggest_component_connection(shp, adj, group, epsg = 3857)

Arguments

shp

An sf data frame

adj

adjacency list

group

array of group identifiers. Typically district numbers or county names. Defaults to rep(1, length(adj)) if missing.

epsg

numeric EPSG code to planarize to. Default is 3857.

Value

tibble with two columns of suggested rows of shp to connect in adj

Examples

library(dplyr)
data(checkerboard)
checkerboard <- checkerboard |> filter(i != 1, j != 1)
adj <- adjacency(checkerboard)
#> Warning: Planarizing skipped. `x` missing CRS.
suggest_component_connection(checkerboard, adj)
#> Warning: Planarizing skipped. `x` missing CRS.
#> Warning: Planarizing skipped. `x` missing CRS.
#> # A tibble: 3 × 2
#>       x     y
#>   <int> <int>
#> 1     2     9
#> 2     1     2
#> 3     1     8