Export s3 methods

Robinlovelace · Robinlovelace · commit 31a07618ec7b · 2023-09-15T08:54:30.000+01:00
diff --git a/NAMESPACE b/NAMESPACE
@@ -10,9 +10,11 @@ S3method(geo_buffer,sf)
 S3method(geo_buffer,sfc)
 S3method(geo_length,sf)
 S3method(geo_projected,sf)
+S3method(geo_projected,sfc)
 S3method(geo_select_aeq,sf)
 S3method(geo_select_aeq,sfc)
 S3method(gsection,sf)
+S3method(islines,sf)
 S3method(line2df,sf)
 S3method(line2points,sf)
 S3method(line2points,sfc)
diff --git a/R/geo_projected.R b/R/geo_projected.R
@@ -84,6 +84,7 @@ geo_projected.sf <- function(shp, fun, crs = geo_select_aeq(shp), silent = TRUE,
   }
   res
 }
+#' @export
 geo_projected.sfc <- function(shp, fun, crs = geo_select_aeq(shp), silent = TRUE, ...) {
   # assume it's not projected  (i.e. lat/lon) if there is no CRS
   if (is.na(sf::st_crs(shp))) {
diff --git a/R/overline.R b/R/overline.R
@@ -17,6 +17,7 @@
 islines <- function(g1, g2) {
   UseMethod("islines")
 }
+#' @export
 islines.sf <- function(g1, g2) {
   sf::st_geometry_type(sf::st_intersection(sf::st_geometry(g1), sf::st_geometry(g2))) == "MULTILINESTRING"
 }

Original file line number	Diff line number	Diff line change
`@@ -84,6 +84,7 @@ geo_projected.sf <- function(shp, fun, crs = geo_select_aeq(shp), silent = TRUE,`
`84`	`84`	`}`
`85`	`85`	`res`
`86`	`86`	`}`
	`87`	`+#' @export`
`87`	`88`	`geo_projected.sfc <- function(shp, fun, crs = geo_select_aeq(shp), silent = TRUE, ...) {`
`88`	`89`	`# assume it's not projected (i.e. lat/lon) if there is no CRS`
`89`	`90`	`if (is.na(sf::st_crs(shp))) {`
Original file line number	Diff line number	Diff line change
`@@ -17,6 +17,7 @@`
`17`	`17`	`islines <- function(g1, g2) {`
`18`	`18`	`UseMethod("islines")`
`19`	`19`	`}`
	`20`	`+#' @export`
`20`	`21`	`islines.sf <- function(g1, g2) {`
`21`	`22`	`sf::st_geometry_type(sf::st_intersection(sf::st_geometry(g1), sf::st_geometry(g2))) == "MULTILINESTRING"`
`22`	`23`	`}`