R/remove.R

In oro.nifti: Rigorous - NIfTI+ANALYZE+AFNI Input / Output

rmniigz <- function(x) {
  sub(".nii.gz", "", x)
}

rmnii <- function(x) {
  sub(".nii", "", x)
}

rmgz <- function(x) {
  sub(".gz", "", x)
}

rmhdrgz <- function(x) {
  sub(".hdr.gz", "", x)
}

rmhdr <- function(x) {
  sub(".hdr", "", x)
}

rmimggz <- function(x) {
  sub(".img.gz", "", x)
}

rmimg <- function(x) {
  sub(".img", "", x)
}