R/dcm2nii_version.R

In muschellij2/dcmniir: Conversion of 'DICOM' to 'NIfTI' Imaging Files Through R

#' @title dcm2nii version
#' @description Finds the version of the dcm2nii function called 
#'
#' @param ... Arguments passed to \code{\link{dcm2nii_bin}}.
#' @param short report back a short version.
#' @export
#' 
#' @return A character string of the version
#' @examples \dontrun{
#' dcm2nii_version()
#' }
dcm2nii_version = function(
  ...,
  short = FALSE
) {
  cmd = dcm2nii_bin(...)
  cmd = paste0(cmd, " -h")
  suppressWarnings({
    res = system(cmd, intern = TRUE)
  })
  res = trimws(res)
  res = grep("^Chris", res, value = TRUE)
  if (short) {
    res = sub(".*(v\\d.*) .?", "\\1", res)
    res = strsplit(res, " ")[[1]][1]
  }
  return(res)
}