Nothing
as.raster <- function(bathy) {
if (!is(bathy,"bathy")) stop("Objet is not of class bathy")
lat <- as.numeric(colnames(bathy))
lon <- as.numeric(rownames(bathy))
r <- raster::raster(ncol = nrow(bathy), nrow = ncol(bathy), xmn = min(lon), xmx = max(lon), ymn = min(lat), ymx = max(lat))
raster::values(r) <- as.vector(bathy[,rev(1:ncol(bathy))])
return(r)
}
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.