Fix other http:// URLs

Author: jcheng5

R/data.R

@@ -7,7 +7,7 @@
 #'   \code{Long}, and population estimates from 2000 to 2010 (columns
 #'   \code{Pop2000} to \code{Pop2010}).
 #' @source The US Census Bureau:
-#'   \url{http://www.census.gov/popest/data/intercensal/cities/cities2010.html}
+#'   \url{https://www.census.gov/data/datasets/time-series/demo/popest/intercensal-2000-2010-cities-and-towns.html}
 #' @noRd
 #' @examples
 #' str(uspop2000)

R/layers.R

@@ -163,7 +163,7 @@ addTiles <- function(
   if (missing(urlTemplate) && is.null(options$attribution))
     options$attribution <- paste(
       "&copy; <a href=\"https://openstreetmap.org\">OpenStreetMap</a>",
-      "contributors, <a href=\"http://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA</a>"
+      "contributors, <a href=\"https://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA</a>"
     )
   invokeMethod(map, data, "addTiles", urlTemplate, layerId, group,
     options)

R/legacy.R

@@ -93,14 +93,14 @@ createLeafletMap <- function(session, outputId) {
 #' @export
 leafletMap <- function(
   outputId, width, height,
-  initialTileLayer = "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",
+  initialTileLayer = "https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",
   initialTileLayerAttribution = NULL,
   options = NULL) {
 
   if (missing(initialTileLayer) && is.null(initialTileLayerAttribution))
     initialTileLayerAttribution <- paste(
-      "&copy; <a href=\"http://openstreetmap.org\">OpenStreetMap</a>",
-      "contributors, <a href=\"http://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA</a>"
+      "&copy; <a href=\"https://openstreetmap.org\">OpenStreetMap</a>",
+      "contributors, <a href=\"https://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA</a>"
     )
 
   shiny::addResourcePath("leaflet-legacy", system_file("legacy/www", package = "leaflet"))

R/plugin-providers.R

@@ -15,7 +15,7 @@ leafletProviderDependencies <- function() {
 #'
 #' @param map the map to add the tile layer to
 #' @param provider the name of the provider (see
-#'   \url{http://leaflet-extras.github.io/leaflet-providers/preview/} and
+#'   \url{https://leaflet-extras.github.io/leaflet-providers/preview/} and
 #'   \url{https://github.com/leaflet-extras/leaflet-providers})
 #' @param layerId the layer id to assign
 #' @param group the name of the group the newly created layers should belong to

inst/examples/geojson.R

@@ -30,7 +30,7 @@ leaflet() %>% addTiles() %>%
 
 #' <br/><br/>
 #' Another examples this time with polygons
-url <- "http://www.partners-popdev.org/wp-content/themes/original-child/vendor/Geojson/States/Maharashtra.geojson"
+url <- "https://www.partners-popdev.org/wp-content/themes/original-child/vendor/Geojson/States/Maharashtra.geojson"
 
 mhSPDF <- geojsonio::geojson_read(url, what = "sp")
 

inst/examples/leaflet.R

@@ -39,13 +39,6 @@ m %>% addMarkers(rnorm(30, 175), rnorm(30, -37), icon = list(
   iconUrl = Rlogo, iconSize = c(25, 19)
 ))
 
-m %>% addMarkers(
-  c(-71.0382679, -122.1217866), c(42.3489054, 47.6763144), icon = list(
-    iconUrl = "http://www.rstudio.com/wp-content/uploads/2014/03/blue-125.png"
-  ), popup = c("RStudio @ Boston", "RStudio @ Seattle")
-)
-
-
 # circle (units in metres)
 m %>% addCircles(rand_lng(50), rand_lat(50), radius = runif(50, 50, 150))
 
@@ -130,10 +123,10 @@ m %>% setView(-122.36075812146, 47.6759920119894, zoom = 13) %>% addGeoJSON(seat
 
 
 # use the Dark Matter layer from CartoDB
-leaflet() %>% addTiles("http://{s}.basemaps.cartocdn.com/dark_all/{z}/{x}/{y}.png",
+leaflet() %>% addTiles("https://{s}.basemaps.cartocdn.com/dark_all/{z}/{x}/{y}.png",
   attribution = paste(
-    "&copy; <a href=\"http://openstreetmap.org\">OpenStreetMap</a> contributors",
-    "&copy; <a href=\"http://cartodb.com/attributions\">CartoDB</a>"
+    "&copy; <a href=\"https://openstreetmap.org\">OpenStreetMap</a> contributors",
+    "&copy; <a href=\"https://cartodb.com/attributions\">CartoDB</a>"
   )
 ) %>% setView(-122.36, 47.67, zoom = 10)
 
@@ -159,3 +152,4 @@ m %>% addCircleMarkers(~lng, ~lat, radius = ~size,
   color = ~greens(value), fillOpacity = 0.5)
 
 }
+

inst/examples/proj4Leaflet-PolarProjections.R

@@ -7,7 +7,7 @@ library(leaflet)
 
 #' ## Artic Projections
 
-#' There is a [polarmap.js](http://webmap.arcticconnect.org/)
+#' There is a [polarmap.js](http://webmap.arcticconnect.ca/)
 #' leaflet plugin available, but that one is not easy to integrate in to the R package.<br/>
 #' But thankfully it does provide Tiles in different projections
 #' which can be used with Proj4Leaflet.
@@ -18,9 +18,9 @@ library(leaflet)
 
 #' All these numbers and calculations come from the polarmap.js plugin, specifically from these files
 #'
-#' - http://webmap.arcticconnect.org/polarmap.js/dist/polarmap-src.js
-#' - http://webmap.arcticconnect.org/tiles.html
-#' - http://webmap.arcticconnect.org/usage.html
+#' - http://webmap.arcticconnect.ca/polarmap.js/dist/polarmap-src.js
+#' - http://webmap.arcticconnect.ca/tiles.html
+#' - http://webmap.arcticconnect.ca/usage.html
 #'
 extent <- 11000000 + 9036842.762 + 667
 origin <- c(-extent, extent)
@@ -57,7 +57,7 @@ crses <- purrr::map(projections, function(code) {
 
 # Tile URL Template for each projection
 tileURLtemplates <- purrr::map(projections, function(code) {
-  sprintf("http://{s}.tiles.arcticconnect.org/osm_%s/{z}/{x}/{y}.png",
+  sprintf("https://tiles.arcticconnect.ca/osm_%s/{z}/{x}/{y}.png",
           code)
 })
 
@@ -115,7 +115,7 @@ crsAntartica <-  leafletCRS(
   bounds =  list( c(-4194304, -4194304), c(4194304, 4194304) )
 )
 
-antarticaTilesURL <- "//map1{s}.vis.earthdata.nasa.gov/wmts-antarctic/MODIS_Aqua_CorrectedReflectance_TrueColor/default/2014-12-01/EPSG3031_250m/{z}/{y}/{x}.jpg"
+antarticaTilesURL <- "https://map1{s}.vis.earthdata.nasa.gov/wmts-antarctic/MODIS_Aqua_CorrectedReflectance_TrueColor/default/2014-12-01/EPSG3031_250m/{z}/{y}/{x}.jpg"
 
 leaflet(options = leafletOptions(
   crs = crsAntartica, minZoom = zoom, maxZoom = maxZoom, worldCopyJump = FALSE)) %>%

inst/examples/proj4Leaflet.R

@@ -29,8 +29,8 @@ leaflet(
         )
       )) %>%
   addTiles(
-    urlTemplate = "http://api.geosition.com/tile/osm-bright-3006/{z}/{x}/{y}.png",
-    attribution = "Map data &copy; <a href=\"http://www.openstreetmap.org/copyright\">OpenStreetMap contributors</a>, Imagery &copy; 2013 <a href=\"http://www.kartena.se/\">Kartena</a>",
+    urlTemplate = "https://api.geosition.com/tile/osm-bright-3006/{z}/{x}/{y}.png",
+    attribution = "Map data &copy; <a href=\"https://www.openstreetmap.org/copyright\">OpenStreetMap contributors</a>, Imagery &copy; 2013 <a href=\"http://www.kartena.se/\">Kartena</a>",
     options = tileOptions(minZoom = 0, maxZoom = 14)) %>%
   setView(11.965, 57.704, 13)