Nothing
sf_pays973 <-
function()
{
# chemin du fond de carte .shp
path_to_shp <- system.file("extdata","pays973.shp", package = "oceanis")
# import de l'objet sf
pays973 <- st_read(dsn = path_to_shp, quiet = TRUE)
return(pays973)
}
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.