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