readrpi | R Documentation |
This function calls the readnii
function after
calling rpi_orient_file
to force RPI orientation.
readrpi(file, ..., verbose = TRUE)
file |
file name of the NIfTI file. |
... |
Arguments to pass to |
verbose |
print diagnostics, passed to |
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)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.