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: " - ) + ) } #' @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(