diff --git a/DESCRIPTION b/DESCRIPTION index 1733640..e40a171 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -2,9 +2,9 @@ Package: sfdep Title: Spatial Dependence for Simple Features Version: 0.2.4.9000 Authors@R: c( - person("Josiah", "Parry", , "josiah.parry@gmail.com", role = c("aut"), + person("Josiah", "Parry", email = "josiah.parry@gmail.com", role = c("aut"), comment = c(ORCID = "0000-0001-9910-865X")), - person("Dexter", "Locke", 'H', "dexter.locke@gmail.com", role = c("aut", "cre"), + person("Dexter", "Locke", email = "dexter.locke@gmail.com", role = c("aut", "cre"), comment = c(ORCID = "0000-0003-2704-9720")) ) Description: An interface to 'spdep' to integrate with 'sf' objects and the 'tidyverse'. @@ -35,7 +35,7 @@ Suggests: Config/testthat/edition: 3 Encoding: UTF-8 Roxygen: list(markdown = TRUE) -RoxygenNote: 7.3.1 +RoxygenNote: 7.3.2 Imports: sf, cli, diff --git a/R/spacetime-methods.R b/R/spacetime-methods.R index 7285c23..375b89f 100644 --- a/R/spacetime-methods.R +++ b/R/spacetime-methods.R @@ -53,7 +53,7 @@ spt_update <- function(x, ...) { #' Cast between `spacetime` and `sf` classes #' -#' @param x for [sfdep::st_as_sf()] a spacetime object. For [sfdep::as_spacetime()] +#' @param x for [sf::st_as_sf()] a spacetime object. For [sfdep::as_spacetime()] #' an sf object. #' @param ... arguments passed to merge. #' @export diff --git a/R/utils-set-operations.R b/R/utils-set-operations.R index 5e99caf..ac63976 100644 --- a/R/utils-set-operations.R +++ b/R/utils-set-operations.R @@ -23,6 +23,7 @@ #' @export nb_union <- function(x, y) { res <- mapply(union, x, y, SIMPLIFY = FALSE) + res <- lapply(res, sort) res <- fill_missing_nb(res) class_modify(res, "nb") } @@ -32,6 +33,7 @@ nb_union <- function(x, y) { #' @export nb_intersect <- function(x, y) { res <- mapply(intersect, x, y, SIMPLIFY = FALSE) + res <- lapply(res, sort) res <- fill_missing_nb(res) class_modify(res, "nb") } @@ -40,6 +42,7 @@ nb_intersect <- function(x, y) { #' @export nb_setdiff <- function(x, y) { res <- mapply(setdiff, x, y, SIMPLIFY = FALSE) + res <- lapply(res, sort) res <- fill_missing_nb(res) class_modify(res, "nb") } diff --git a/man/as_spacetime.Rd b/man/as_spacetime.Rd index e0990c6..da99232 100644 --- a/man/as_spacetime.Rd +++ b/man/as_spacetime.Rd @@ -13,7 +13,7 @@ as_spacetime(x, .loc_col, .time_col, ...) \method{as_spacetime}{sf}(x, .loc_col, .time_col, ...) } \arguments{ -\item{x}{for \code{\link[=st_as_sf]{st_as_sf()}} a spacetime object. For \code{\link[=as_spacetime]{as_spacetime()}} +\item{x}{for \code{\link[sf:st_as_sf]{sf::st_as_sf()}} a spacetime object. For \code{\link[=as_spacetime]{as_spacetime()}} an sf object.} \item{...}{arguments passed to merge.}