tidy

edzer · edzer · commit e88eb5d7dce5 · 2024-02-09T07:58:42.000+01:00
diff --git a/R/join.R b/R/join.R
@@ -174,8 +174,7 @@ st_join.sf = function(x, y, join = st_intersects, ..., suffix = c(".x", ".y"),
 	if (inherits(x, "tbl_df") && requireNamespace("dplyr", quietly = TRUE))
 		st_sf(dplyr::bind_cols(x[ix,], y[unlist(i), , drop = FALSE]))
   	else
-	        st_sf(cbind(as.data.frame(x)[ix, ,drop=FALSE], y[unlist(i), , drop = FALSE]))
-	
+		st_sf(cbind(as.data.frame(x)[ix, ,drop=FALSE], y[unlist(i), , drop = FALSE]))
 }
 
 #' @export

Original file line number	Diff line number	Diff line change
`@@ -174,8 +174,7 @@ st_join.sf = function(x, y, join = st_intersects, ..., suffix = c(".x", ".y"),`
`174`	`174`	`if (inherits(x, "tbl_df") && requireNamespace("dplyr", quietly = TRUE))`
`175`	`175`	`st_sf(dplyr::bind_cols(x[ix,], y[unlist(i), , drop = FALSE]))`
`176`	`176`	`else`
`177`		`- st_sf(cbind(as.data.frame(x)[ix, ,drop=FALSE], y[unlist(i), , drop = FALSE]))`
`178`		`-`
	`177`	`+ st_sf(cbind(as.data.frame(x)[ix, ,drop=FALSE], y[unlist(i), , drop = FALSE]))`
`179`	`178`	`}`
`180`	`179`
`181`	`180`	`#' @export`