# Create a FileFormat for NIFTI format
# \donttest{
fmt <- new("FileFormat",
file_format = "NIFTI",
header_encoding = "raw",
header_extension = "nii",
data_encoding = "raw",
data_extension = "nii")
# Create temporary file
tmp <- tempfile("brainscan", fileext = ".nii")
file.create(tmp)
# Check if files exist and match format
file_matches(fmt, tmp)
# Clean up
unlink(tmp)
# }
Run the code above in your browser using DataLab