Update tidyverse.R

r-spatial · Sep 2, 2024 · 0d606c7 · 0d606c7
1 parent 2047715
commit 0d606c7
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/tidyverse.R b/R/tidyverse.R
@@ -1,9 +1,7 @@
 # convert arrays to data.frame, in long form
 to_df = function(x) {
 	out = dplyr::as_tibble(lapply(x, function(y) structure(y, dim = NULL)))
-	if(any(sapply(out, inherits, "sfc")) {
-		sf::st_as_sf(out)
-	} else out
+	if(any(sapply(out, inherits, "sfc"))) sf::st_as_sf(out) else out
 }
 
 set_dim = function(x, d) {