Skip to content

Instantly share code, notes, and snippets.

@dpprdan

dpprdan/leaflet_custom_wms_https.Rmd

Last active June 15, 2018 12:34
Show Gist options
  • Save dpprdan/5a3278a5b74409f247bbcbbc03aea537 to your computer and use it in GitHub Desktop.
Save dpprdan/5a3278a5b74409f247bbcbbc03aea537 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
leaflet_custom_wms_https.Rmd
``` r
library(leaflet)
```
Example from https://leafletjs.com/reference-1.3.0.html\#tilelayer-wms
``` r
leaflet() %>%
addTiles() %>%
setView(lng = -72.5, lat = 43.5, zoom = 8) %>%
addWMSTiles(
baseUrl = "https://mesonet.agron.iastate.edu/cgi-bin/wms/nexrad/n0r.cgi",
layers = 'nexrad-n0r-900913',
attribution = "Weather data © 2012 IEM Nexrad",
options = WMSTileOptions(format = "image/png", transparent = TRUE)
)
```
![](https://i.imgur.com/CULme51.png)
From https://twitter.com/obrl\_soil/status/1007497859892039680
``` r
leaflet() %>%
setView(153.02998, -27.47515, zoom = 18) %>%
addWMSTiles(
baseUrl = "https://gisservices.information.qld.gov.au/arcgis/services/Imagery/QldBase_AllUsers/ImageServer/WMSServer",
layers = 'QldBase_AllUsers',
options = WMSTileOptions(format = "image/png")
)
```
![](https://i.imgur.com/TMFva93.png)
<details>
<summary>Session info</summary>
``` r
devtools::session_info()
#> Session info -------------------------------------------------------------
#> setting value
#> version R version 3.4.4 (2018-03-15)
#> system x86_64, mingw32
#> ui RTerm
#> language en
#> collate German_Germany.1252
#> tz Europe/Berlin
#> date 2018-06-15
#> Packages -----------------------------------------------------------------
#> package * version date source
#> backports 1.1.2 2017-12-13 CRAN (R 3.4.3)
#> base * 3.4.4 2018-03-15 local
#> compiler 3.4.4 2018-03-15 local
#> crosstalk 1.0.0 2016-12-21 CRAN (R 3.4.2)
#> curl 3.2 2018-03-28 CRAN (R 3.4.4)
#> datasets * 3.4.4 2018-03-15 local
#> devtools 1.13.5 2018-02-18 CRAN (R 3.4.3)
#> digest 0.6.15 2018-01-28 CRAN (R 3.4.3)
#> evaluate 0.10.1 2017-06-24 CRAN (R 3.4.0)
#> graphics * 3.4.4 2018-03-15 local
#> grDevices * 3.4.4 2018-03-15 local
#> htmltools 0.3.6 2017-04-28 CRAN (R 3.4.0)
#> htmlwidgets 1.2 2018-04-19 CRAN (R 3.4.4)
#> httpuv 1.4.3 2018-05-10 CRAN (R 3.4.4)
#> httr 1.3.1 2017-08-20 CRAN (R 3.4.1)
#> jsonlite 1.5 2017-06-01 CRAN (R 3.4.0)
#> knitr 1.20 2018-02-20 CRAN (R 3.4.3)
#> later 0.7.2 2018-05-01 CRAN (R 3.4.4)
#> leaflet * 2.0.0 2018-04-20 CRAN (R 3.4.4)
#> magrittr 1.5 2014-11-22 CRAN (R 3.4.2)
#> memoise 1.1.0 2018-04-24 Github (hadley/memoise@06d16ec)
#> methods * 3.4.4 2018-03-15 local
#> mime 0.5 2016-07-07 CRAN (R 3.4.1)
#> promises 1.0.1 2018-04-13 CRAN (R 3.4.4)
#> R6 2.2.2 2017-06-17 CRAN (R 3.4.0)
#> Rcpp 0.12.17 2018-05-18 CRAN (R 3.4.4)
#> rmarkdown 1.9.8 2018-04-24 Github (rstudio/rmarkdown@81dabbc)
#> rprojroot 1.3-2 2018-01-03 CRAN (R 3.4.3)
#> shiny 1.1.0 2018-05-17 CRAN (R 3.4.4)
#> stats * 3.4.4 2018-03-15 local
#> stringi 1.2.2 2018-05-02 CRAN (R 3.4.4)
#> stringr 1.3.1 2018-05-10 CRAN (R 3.4.4)
#> tools 3.4.4 2018-03-15 local
#> utils * 3.4.4 2018-03-15 local
#> webshot 0.5.0 2017-11-29 CRAN (R 3.4.2)
#> withr 2.1.2 2018-03-15 CRAN (R 3.4.4)
#> xml2 1.2.0 2018-01-24 CRAN (R 3.4.3)
#> xtable 1.8-2 2016-02-05 CRAN (R 3.4.2)
#> yaml 2.1.19 2018-05-01 CRAN (R 3.4.4)
```
</details>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment