## 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")
# ## End(Not run)
Run the code above in your browser using DataLab