R/sform_code.R

In neuroconductor/fslr: Wrapper Functions for 'FSL' ('FMRIB' Software Library) from Functional MRI of the Brain ('FMRIB')

#' @docType methods
#' @rdname sform_code-methods
#' @title Extract Image sform_code attribute 
#' @name sform_code-methods
#' @aliases sform_code,character-method
#' @import oro.nifti
#' @export
#' @description sform_code method for character types
#' @param object is a filename to pass to \link{fslval}
#' 
setMethod("sform_code", "character", function(object) { 
  object = path.expand(object)
  stopifnot(file.exists(object))
  res = fslval(object, keyword = "sform_code", verbose = FALSE)
  res = as.numeric(res)
  return(res)
})