Fix lint failures

cidm-ph · Oct 9, 2024 · 12f10e2 · 12f10e2
1 parent b910dda
commit 12f10e2
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 11 deletions.
diff --git a/R/configure_inset.R b/R/configure_inset.R
@@ -59,14 +59,14 @@
 #'   radius = 50,
 #'   units = "mi")
 configure_inset <- function(
-    centre,
-    scale = NULL,
-    translation = NULL,
-    radius = NULL,
-    hwidth = NULL,
-    hheight = NULL,
-    units = "km",
-    crs_working = NULL
+  centre,
+  scale = NULL,
+  translation = NULL,
+  radius = NULL,
+  hwidth = NULL,
+  hheight = NULL,
+  units = "km",
+  crs_working = NULL
 ) {
   crs_input <- sf::NA_crs_
   if (inherits(centre, "sfc")) {
@@ -173,7 +173,7 @@ check_inset_config <- function(inset) {
   if (is.null(inset)) cli::cli_abort("Inset configuration must be provided")
 
   if (!is.null(inset[["radius"]]) && !is.null(inset[["hwidth"]])) {
-      cli::cli_abort("Only one of inset {.arg radius} or {.arg hwidth} can be specified")
+    cli::cli_abort("Only one of inset {.arg radius} or {.arg hwidth} can be specified")
   }
   if (!is.null(inset[["radius"]])) {
     if (inset$radius <= 0) {

diff --git a/R/inset_shape_rectangle.R b/R/inset_shape_rectangle.R
@@ -26,8 +26,6 @@ make_frame.inset_shape_rectangle <- function(inset) {
   if (is.null(trans)) trans <- c(0, 0)
   scale <- inset_scale(inset)
   if (is.null(scale)) scale <- 1
-  width <- inset_width(inset)
-  height <- inset_width(inset)
 
   viewport <- inset_viewport(inset)
   result <- viewport