Merge pull request #9 from riatelab/pixel

modify stamen attribution, update news

NEWS.md

@@ -3,7 +3,7 @@
 ## Minor changes
 * Change projection management, faster with 3857 now
 * Add adjust argument to plot_tiles() to plot the raster without zoom-in or zoom-out in the graphic device
-
+* Modify attribution of Stamen maps
 
 
 # maptiles 0.2.0

README.Rmd

@@ -19,7 +19,7 @@ knitr::knit_hooks$set(margin = function(before, options, envir){
 ```
 
 # maptiles
-
+ 
 <!-- badges: start -->
 [![](https://www.r-pkg.org/badges/version/maptiles)](https://cran.r-project.org/package=maptiles)
 [![R-CMD-check](https://github.com/riatelab/maptiles/workflows/R-CMD-check/badge.svg)](https://github.com/riatelab/maptiles/actions)

README.md

@@ -76,14 +76,14 @@ osmnolbl <- list(src = 'osmnolabel',
 # dowload tiles and compose raster (SpatRaster)
 nc_osmnolbl <- get_tiles(x = nc, provider = osmnolbl, crop = TRUE, 
                          cachedir = tempdir(), verbose = TRUE)
-#> https://a.tiles.wmflabs.org/osm-no-labels/7/34/50.png => /tmp/Rtmpq85OHv/osmnolabel/osmnolabel_7_34_50.png
-#> https://a.tiles.wmflabs.org/osm-no-labels/7/35/50.png => /tmp/Rtmpq85OHv/osmnolabel/osmnolabel_7_35_50.png
-#> https://c.tiles.wmflabs.org/osm-no-labels/7/36/50.png => /tmp/Rtmpq85OHv/osmnolabel/osmnolabel_7_36_50.png
-#> https://a.tiles.wmflabs.org/osm-no-labels/7/37/50.png => /tmp/Rtmpq85OHv/osmnolabel/osmnolabel_7_37_50.png
-#> https://a.tiles.wmflabs.org/osm-no-labels/7/34/51.png => /tmp/Rtmpq85OHv/osmnolabel/osmnolabel_7_34_51.png
-#> https://a.tiles.wmflabs.org/osm-no-labels/7/35/51.png => /tmp/Rtmpq85OHv/osmnolabel/osmnolabel_7_35_51.png
-#> https://b.tiles.wmflabs.org/osm-no-labels/7/36/51.png => /tmp/Rtmpq85OHv/osmnolabel/osmnolabel_7_36_51.png
-#> https://a.tiles.wmflabs.org/osm-no-labels/7/37/51.png => /tmp/Rtmpq85OHv/osmnolabel/osmnolabel_7_37_51.png
+#> https://a.tiles.wmflabs.org/osm-no-labels/7/34/50.png => /tmp/RtmpTstEb7/osmnolabel/osmnolabel_7_34_50.png
+#> https://c.tiles.wmflabs.org/osm-no-labels/7/35/50.png => /tmp/RtmpTstEb7/osmnolabel/osmnolabel_7_35_50.png
+#> https://a.tiles.wmflabs.org/osm-no-labels/7/36/50.png => /tmp/RtmpTstEb7/osmnolabel/osmnolabel_7_36_50.png
+#> https://a.tiles.wmflabs.org/osm-no-labels/7/37/50.png => /tmp/RtmpTstEb7/osmnolabel/osmnolabel_7_37_50.png
+#> https://a.tiles.wmflabs.org/osm-no-labels/7/34/51.png => /tmp/RtmpTstEb7/osmnolabel/osmnolabel_7_34_51.png
+#> https://a.tiles.wmflabs.org/osm-no-labels/7/35/51.png => /tmp/RtmpTstEb7/osmnolabel/osmnolabel_7_35_51.png
+#> https://a.tiles.wmflabs.org/osm-no-labels/7/36/51.png => /tmp/RtmpTstEb7/osmnolabel/osmnolabel_7_36_51.png
+#> https://a.tiles.wmflabs.org/osm-no-labels/7/37/51.png => /tmp/RtmpTstEb7/osmnolabel/osmnolabel_7_37_51.png
 #> Zoom:7
 #> Data and map tiles sources:
 #> © OpenStreetMap contributors.

data-raw/minimaps.R

@@ -50,3 +50,25 @@ for (i in 1:length(providers)){
   dev.off()
 }
 
+maptiles_providers$Stamen.Toner
+names(maptiles_providers)
+n <- c("Stamen.Toner", "Stamen.TonerBackground",      "Stamen.TonerHybrid"      ,
+       "Stamen.TonerLines"         ,   "Stamen.TonerLabels"       ,
+       "Stamen.TonerLite"  ,       "Stamen.Terrain"           ,
+       "Stamen.TerrainBackground"  ,   "Stamen.TerrainLabels" )
+
+
+for(i in names(maptiles_providers)){
+  print(maptiles_providers[[i]]$cit)
+}
+
+for(i in n){
+  maptiles_providers[["Stamen.Watercolor"]]$cit <- "Map tiles by Stamen Design CC BY 3.0 — Map data © OpenStreetMap contributors"
+}
+
+library(maptiles)
+get_credit("Stamen.Watercolor")
+maptiles_providers[n]
+
+save("maptiles_providers",file =  "R/sysdata.rda")
+