fmt <- new("FileFormat", header_extension = "hdr", data_extension = "img")
data_file(fmt, "brain_scan.img") # Returns "brain_scan.img"
data_file(fmt, "brain_scan.hdr") # Also Returns "brain_scan.img"
Run the code above in your browser using DataLab