library(oce)
## below constructed from the files in oce/data
names <- c("adp", "adv", "argo", "cm", "coastlineWorld", "colors", "ctd",
"ctdRaw", "echosounder", "landsat", "lisst", "lobo", "met", "rsk",
"sealevel", "sealevelTuktoyaktuk", "section", "tidedata",
"topoWorld", "wind")
for (name in names) {
cat(sprintf("%20s", name))
data(list=name)
x <- get(name)
if (!inherits(x, "oce")) {
cat(" no @metadata -- OK\n", sep="")
} else {
if ("dataNamesOriginal" %in% names(x@metadata)) {
if (is.list(x@metadata$dataNamesOriginal)) {
cat(" @metadata$dataNamesOriginal is a list -- OK\n", sep="")
} else {
cat(" @metadata$dataNamesOriginal is NOT a list -- ERROR\n", sep="")
}
} else {
cat(" @metadata$dataNamesOriginal does not exist -- OK\n", sep="")
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.