tidy

r-spatial · Dec 10, 2023 · cde0757 · cde0757
1 parent 683a548
commit cde0757
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git a/R/arith.R b/R/arith.R
@@ -36,7 +36,7 @@
 #' a = st_buffer(st_point(c(0,0)), 2)
 #' b = a + c(2, 0)
 #' p = function(m) { plot(c(a,b)); plot(eval(parse(text=m)), col=grey(.9), add = TRUE); title(m) }
-#' lapply(c('a | b', 'a / b', 'a & b', 'a %/% b'), p)
+#' o = lapply(c('a | b', 'a / b', 'a & b', 'a %/% b'), p)
 #' par(opar)
 #' sfc = st_sfc(st_point(0:1), st_point(2:3))
 #' sfc + c(2,3) # added to EACH geometry
@@ -47,7 +47,7 @@ Ops.sfg <- function(e1, e2) {
 		switch (.Generic,
 			"-" = return(e1 * -1.0),
 			"+" = return(e1),
-			stop(paste("unary", .Generic, "not defined for \"sfg\" objects"))
+			stop(paste("unary", .Generic, 'not defined for "sfg" objects'))
 		)
 	}
 

diff --git a/man/Ops.Rd b/man/Ops.Rd
diff --git a/tests/dplyr.R b/tests/dplyr.R
@@ -4,7 +4,6 @@ if (require(dplyr, quietly = TRUE)) {
  options(dplyr.summarise.inform=FALSE)
  read_sf(system.file("shape/nc.shp", package="sf"), quiet = TRUE) %>%
 	st_transform(3857) -> nc
- nc = st_as_sf(nc, sf_column_name = "geometry")
  nc %>% filter(AREA > .1) %>% plot()
 
 # plot 10 smallest counties in grey: