This function calls the readnii
function after
calling rpi_orient_file
to force RPI orientation.
readrpi(file, ..., verbose = TRUE)
readrpi2(file, ..., verbose = TRUE)
file | file name of the NIfTI file. |
---|---|
... | Arguments to pass to |
verbose | print diagnostics, passed to |
`readrpi2` uses `RNifti` to ensure the reading orientation
if (have.fsl()){
print(fsl_version())
in_ci <- function() {
nzchar(Sys.getenv("CI"))
}
if (in_ci()) {
destfile = tempfile(fileext = ".nii.gz")
url = paste0("https://ndownloader.figshare.com/",
"files/18068546")
old_url = paste0("https://github.com/muschellij2/",
"Neurohacking/files/3454385/113-01-MPRAGE2.nii.gz")
dl = tryCatch(download.file(url,
destfile = destfile))
if (inherits(dl, "try-error") || dl != 0) {
dl = download.file(old_url, destfile = destfile)
}
res = readrpi(destfile)
}
}