tweety-function.R

data(guerry, package = "sfdep")

library(dplyr)
library(spdep)

transmute(guerry, neighbors = spdep::poly2nb(geometry))

class_modify <- function(x, class = "list") {
  current <- class(x)
  class(x) <- c(current, class)
  x
}

transmute(guerry, neighbors = class_modify(spdep::poly2nb(geometry)))