R/print.R

In satellite: Handling and Manipulating Remote Sensing Data

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")
             }
           }
)