Fix formatting lints

Author: arcresu

R/inset_shape_sf.R

@@ -85,7 +85,6 @@ make_frame.inset_shape_sf <- function(inset) {
   if (is.null(trans)) trans <- c(0, 0)
   scale <- inset_scale(inset)
   if (is.null(scale)) scale <- 1
-  radius <- inset_shape(inset)$radius
 
   viewport <- inset_viewport(inset)
   result <- viewport
@@ -112,11 +111,13 @@ get_quasi_tangents <- function(shape1, shape2) {
   y1 <- sf::st_intersection(
     sf::st_boundary(shape1),
     sf::st_convex_hull(shape1) |> sf::st_boundary()
-  ) |> sf::st_cast("POINT")
+  ) |>
+    sf::st_cast("POINT")
   y2 <- sf::st_intersection(
     sf::st_boundary(shape2),
     sf::st_convex_hull(shape2) |> sf::st_boundary()
-  ) |> sf::st_cast("POINT")
+  ) |>
+    sf::st_cast("POINT")
 
   # make every possible line between shapes at those key points
   rays <- apply(

README.md

@@ -60,18 +60,16 @@ library(ggplot2)
 # load the North Carolina map example shipped with sf
 nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
 
-# find the centroid of the specified county
-inset_centre <- sf::st_centroid(sf::st_geometry(nc)[nc$NAME == "Yancey"])
-
 inset_cfg <- configure_inset(
   shape_circle(
-    centre = inset_centre,
+    centre =  sf::st_centroid(nc[nc$NAME == "Yancey",]),
     radius = 50
   ),
   scale = 2,
   units = "mi",
   translation = c(70, -180)
 )
+#> Warning: st_centroid assumes attributes are constant over geometries
 
 # pick some counties to label
 labelled_counties <- sample(nc$NAME, 10)

vignettes/ggmapinset.Rmd

@@ -224,20 +224,20 @@ having multiple identical copies of the base map.
 ```{r multiple, fig.width=7, fig.height=5}
 inset1 <- configure_inset(
   shape_rectangle(
-    centre = sf::st_centroid(nc[nc$NAME == "Bladen",]),
+    centre = sf::st_centroid(nc[nc$NAME == "Bladen", ]),
     hwidth = 50
   ),
   scale = 1.5, translation = c(150, -50), units = "mi"
 )
 inset2 <- configure_inset(
   shape_circle(
-    centre = sf::st_centroid(nc[nc$NAME == "Orange",]),
+    centre = sf::st_centroid(nc[nc$NAME == "Orange", ]),
     radius = 30
   ),
   scale = 3, translation = c(30, 120), units = "mi"
 )
 inset3 <- configure_inset(
-  shape_sf(nc[nc$NAME == "Gates",]),
+  shape_sf(nc[nc$NAME == "Gates", ]),
   scale = 6, translation = c(90, 70), units = "mi"
 )
 
@@ -249,7 +249,7 @@ ggplot(nc) +
   geom_inset_frame(inset = inset1, colour = "red") +
   # inset 2
   geom_sf_inset(map_base = "none", inset = inset2) +
-  geom_inset_frame(inset = inset2, colour = "blue")+
+  geom_inset_frame(inset = inset2, colour = "blue") +
   # inset 3
   geom_sf_inset(map_base = "none", inset = inset3, colour = NA) +
   geom_inset_frame(inset = inset3, colour = "magenta")