Fix OpenStreetMap tiles

When rendering under http:// with Chrome, openstreetmap.org would redirect
us to https://, and something about that caused Chrome to send different
headers than if we went directly to https:// originally. Specifically, the
Sec-CH-UA header would not be included, and it looks like openstreetmap's
anti-abuse filters now treat a Chrome UA without Sec-CH-UA as suspicious
(just guessing based on what I'm seeing).

My user agent:
Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/99.0.4844.51 Safari/537.36

My Sec-CH-UA:
" Not A;Brand";v="99", "Chromium";v="99", "Google Chrome";v="99"'

Author: jcheng5

NEWS

@@ -4,6 +4,8 @@ leaflet 2.1.0.9000
 BUG FIXES and IMPROVEMENTS
 * The default marker icon for `addMarkers` no longer worked, due to the CDN we were relying on apparently being retired. Fixed by pointing to a new CDN. (#782)
 
+* New behavior from tile.openstreetmap.org caused `addTiles` default tileset to break when viewed under non-https protocol on recent versions of Chrome. Fixed by always using the https protocol to connect to openstreetmap. (#786)
+
 leaflet 2.1.0
 --------------------------------------------------------------------------------
 

R/layers.R

@@ -152,7 +152,7 @@ groupOptions <- function(map, group, zoomLevels = NULL) {
 #' @export
 addTiles <- function(
   map,
-  urlTemplate = "//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",
+  urlTemplate = "https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",
   attribution = NULL,
   layerId = NULL,
   group = NULL,
@@ -162,7 +162,7 @@ addTiles <- function(
   options$attribution <- attribution
   if (missing(urlTemplate) && is.null(options$attribution))
     options$attribution <- paste(
-      "&copy; <a href=\"http://openstreetmap.org\">OpenStreetMap</a>",
+      "&copy; <a href=\"https://openstreetmap.org\">OpenStreetMap</a>",
       "contributors, <a href=\"http://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA</a>"
     )
   invokeMethod(map, data, "addTiles", urlTemplate, layerId, group,