From c422ca5d9a0f9528227d6599886a2b626836207e Mon Sep 17 00:00:00 2001
From: your name <eli.pousson@gmail.com>
Date: Thu, 4 Jan 2024 01:06:25 -0500
Subject: [PATCH] style: minor style tweaks

---
 R/bing_maps_api_key.R | 1 -
 R/map_image.R         | 2 +-
 R/utils.R             | 4 ++--
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/R/bing_maps_api_key.R b/R/bing_maps_api_key.R
index 7043065..b09ecf2 100644
--- a/R/bing_maps_api_key.R
+++ b/R/bing_maps_api_key.R
@@ -32,7 +32,6 @@ bing_maps_api_key <- function(key,
 get_bing_maps_api_key <- function(key = NULL,
                                   default = "BING_MAPS_API_KEY",
                                   call = caller_env()) {
-
   get_r_environ_token(
     token = key,
     default = default,
diff --git a/R/map_image.R b/R/map_image.R
index d35081e..ceab150 100644
--- a/R/map_image.R
+++ b/R/map_image.R
@@ -2,7 +2,7 @@
   packageStartupMessage(
     "Use of the Bing Maps APIs is governed by the Microsoft Bing Maps Platform APIs Terms Of Use.
     \nMore information: <https://www.microsoft.com/en-us/maps/product/>"
-    )
+  )
 }
 
 #' @noRd
diff --git a/R/utils.R b/R/utils.R
index 69a2b01..a8e5db3 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -30,8 +30,8 @@ nudge_location <- function(location, nudge = NULL) {
 #' Get closest cardinal direction based on angle orientation
 #' @noRd
 closest_cardinal_dir <- function(orientation = NULL) {
- cardinal_dirs_between <- c(0, 45, 135, 225, 315)
- cardinal_dirs <- c(0, 90, 180, 270, 360)
+  cardinal_dirs_between <- c(0, 45, 135, 225, 315)
+  cardinal_dirs <- c(0, 90, 180, 270, 360)
 
   cardinal_dirs[
     findInterval(