if (!is.null(get_api_key())) {
ex <- ext(146, 147, -43, -42)
tile_infoz <- get_tiles_zoom(ex, zoom = 1)
tile_infod <- get_tiles_dim(ex, dim = c(256, 256))
tile_infob <- get_tiles_buffer(cbind(146.5, -42.5), buffer = 5000)
}
Run the code above in your browser using DataLab