library(argoFloats)
ais <- getIndex(filename="synthetic", destdir=".")
sub <- subset(ais, mode="delayed")
lonRect <- c(-77, -75)
latRect <- c(25, 28)
s <- subset(sub, rectangle=list(longitude=lonRect, latitude=latRect))
profiles <- getProfiles(s)
argos <- readProfiles(profiles)
n <- profiles[["length"]]
files <- profiles[["file"]]
for (i in seq_len(n)) {
argo <- argos[[i]]
cat(rep("-", length.out=30), "\n", sep="")
cat(files[i], "\n")
cat(rep("-", length.out=30), "\n", sep="")
oxygenFlags <- as.vector(argo[["oxygenFlag"]])
print(table(oxygenFlags))
salinityFlags <- as.vector(argo[["salinityFlag"]])
print(table(salinityFlags))
temperatureFlags <- as.vector(argo[["temperatureFlag"]])
print(table(temperatureFlags))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.