setMethod ('print' , signature(x = "Satellite"),
function(x)
{
cat(paste("Summary of the Satellite Object\n\n", sep = ""))
print(getSatMeta(x)[1:11])
cat(paste("\n Layers are projected in:\n",
getSatProjection(x, getSatBCDE(x, 1)),
sep = ""))
if (length(unique(as.character(lapply(
seq(countSatDataLayers(x)),
function(i) getSatProjection(x,
getSatBCDE(x, i)))))) > 1) {
cat("\n\nWarning: Not all layers have same projection")
}
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.