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