Nothing
stopifnot(requireNamespace("methods", quietly=TRUE),
requireNamespace("ocedata", quietly=TRUE))
coastlineWorldFine <- local({
f <- system.file(file.path("extdata", "coastlineWorldFine_slots.rda"), package="ocedata")
if (nchar(f)) {
load(f)
res <- new("coastline")
slot(res, "data") <- data
slot(res, "metadata") <- metadata
slot(res, "processingLog") <- processingLog
res
} else {
NULL
}
})
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.