R/tail.magpie.R

In magclass: Data Class and Tools for Handling Spatial-Temporal Data

#' @importFrom utils tail
#' @export
tail.magpie <- function(x, n1=3L, n2=6L, n3=2L, ...) {
  if(dim(x)[1]<n1) n1 <- dim(x)[1]
  if(dim(x)[2]<n2) n2 <- dim(x)[2]
  if(dim(x)[3]<n3) n3 <- dim(x)[3]
  return(x[dim(x)[1]+1-(n1:1),dim(x)[2]+1-(n2:1),dim(x)[3]+1-(n3:1)])  
}