#' @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.