R/zero_pad.R

In neuroconductor-releases/extrantsr: Extra Functions to Build on the 'ANTsR' Package

#' @title Zero pads an image
#' 
#' @param img Array, class \code{\link{nifti}}, or 
#' \code{antsImage}
#' @param ... Options to \code{\link[neurobase]{zero_pad}}
#' @return Object of class nifti, array, or \code{antsImage}
#' @export
zero_pad = function(img, 
                    ...){
  if (is.antsImage(img)) {
    arr = as.array(img)
    res = neurobase::zero_pad(arr, ...)
    res = ANTsRCore::as.antsImage(object = res, reference = img)
  } else {
    res = neurobase::zero_pad(img, ...)
  }
  return(res)
}