RgoogleMaps/R/GetMapTiles.R

19   nTiles = c(3,3), ##<< number of tiles in x and y direction  argument
75     nTiles[1] = abs(XYmax$Tile[1,1]-XYmin$Tile[1,1])+1
76     nTiles[2] = abs(XYmax$Tile[1,2]-XYmin$Tile[1,2])+1
81       cat("nTiles=",nTiles,", center=", round(center,3), "\n")
87   if (nTiles[1] %% 2 == 0) {#even
88     X = (tileXY[1,1]-nTiles[1]/2):(tileXY[1,1]+nTiles[1]/2-1);
90     X = (tileXY[1,1]-(nTiles[1]-1)/2):(tileXY[1,1]+(nTiles[1]-1)/2);
92   if (nTiles[2] %% 2 == 0) {#even
93     Y = (tileXY[1,2]-nTiles[2]/2):(tileXY[1,2]+nTiles[2]/2-1);
95     Y = (tileXY[1,2]-(nTiles[2]-1)/2):(tileXY[1,2]+(nTiles[2]-1)/2);
213     nTiles = prod(NumTiles(lonR=c(-135,-66), latR=c(25,54) , zoom=zoom))  functionVar
214     us_google_5 = GetMapTiles(lonR=c(-135,-66), latR=c(25,54) , zoom=zoom, TotalSleep = 2*nTiles,
219     wtc_google_15=GetMapTiles(wtc_ll, zoom=15,nTiles = c(3,3), type = "google",
222     wtc_google_16 =GetMapTiles(wtc_ll, zoom=16,nTiles = c(4,4), type = "google",
227     wtc_stamen=GetMapTiles(wtc_ll, zoom=15,nTiles = c(3,3), verbose=1,