Nothing
#' Tanaka contour plot.
#'
#' Soho elevation data.
#' @importFrom elevatr get_elev_raster
#' @importFrom tanaka tanaka
#' @importFrom terra rast
#' @noRd
tanakaContourPlot <- function() {
vars <- c("lon", "lat")
map.frame <- cholera::roads[cholera::roads$name == "Map Frame", vars]
map.range <- data.frame(x = range(map.frame$lon), y = range(map.frame$lat))
elev.soho <- elevatr::get_elev_raster(locations = map.range, z = 10,
prj = "EPSG:4326", clip = "locations")
elev.raster <- terra::rast(elev.soho)
tanaka::tanaka(elev.raster)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.