fslr_Generic_Function.R

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