# NOT RUN {
loc_df <- data.frame(x = runif(6,min=sp::bbox(lake)[1,1],
max=sp::bbox(lake)[1,2]),
y = runif(6,min=sp::bbox(lake)[2,1],
max=sp::bbox(lake)[2,2]))
x <- get_elev_raster(locations = loc_df, prj = sp::proj4string(lake), z=10,
api_key = NULL)
data(lake)
x <- get_elev_raster(lake, z = 3, src = "mapzen")
x <- get_elev_raster(lake, z = 12, src = "aws")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab