R/img_rearrange.R

In mmontesinosanmartin/rsatExtra: What the package does (short line)

.img_rearrange <- function(img.ls) {
  n.imgs <- length(img.ls)
  n.lyrs <- nlayers(img.ls[[1]])
  out <- list()
  for(i in 1:n.lyrs)
  {
    outi <- list()
    for(j in 1:n.imgs)
    {
      outi[[j]] <- img.ls[[j]][[i]]
    }
    out[[i]] <- stack(outi)
  }
  return(out)
}