Skip to content

Commit

Permalink
Added comment.
Browse files Browse the repository at this point in the history
  • Loading branch information
pushing-boulders committed Oct 29, 2024
1 parent 491a495 commit 755f6fc
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions R/internal.R
Original file line number Diff line number Diff line change
Expand Up @@ -173,8 +173,8 @@ out <- function(input, type = 1, ll = NULL, msg = FALSE, sign = "", verbose = ge
url <- paste0(
getOption("basemaps.map_api")[[map_service]][[map_type]], tg$zoom, "/", # base URL
if(map_service == "esri") paste0(x[2], "/", x[1]) else paste0(x[1], "/", x[2]), # coordinate order
if(all(map_service == "osm_stamen", map_type == "watercolor")) ".jpg" else
if(any(map_service != "mapbox", map_type != "watercolor", all(map_service == "mapbox", map_type == "terrain"))) ".png", # file suffix or not
if(all(map_service == "osm_stamen", map_type == "watercolor")) ".jpg" else # add jpg for watercolor
if(any(map_service != "mapbox", map_type != "watercolor", all(map_service == "mapbox", map_type == "terrain"))) ".png", # png file suffix or not
if(map_service == "mapbox") paste0("?access_token=", map_token), # token or not
if(map_service == "osm_thunderforest") paste0("?apikey=", map_token), # token or not
if(map_service == "osm_stamen") paste0("?api_key=", map_token), # token or not
Expand Down

0 comments on commit 755f6fc

Please sign in to comment.