fmt <- new("FileFormat", header_extension = "hdr", data_extension = "img")
data_file_matches(fmt, "brain_scan.img") # TRUE
data_file_matches(fmt, "brain_scan.hdr") # FALSE
data_file_matches(fmt, "brain.img.gz") # FALSE
Run the code above in your browser using DataLab