# Create a FileFormat for NIFTI files
fmt <- new("FileFormat",
header_extension = "nii",
data_extension = "nii")
# Strip extension from a NIFTI file
strip_extension(fmt, "brain_scan.nii") # Returns "brain_scan"
Run the code above in your browser using DataLab