Generic function to get the name of the header file, given a file name and a FileFormat instance.

Derives the header file name from a given file name based on the FileFormat specifications.

Usage

header_file(x, file_name)

# S4 method for class 'FileFormat,character'
header_file(x, file_name)

Arguments

x

A FileFormat object specifying the format requirements

file_name

A character string specifying the file name to derive the header file name from

Value

the correct header name

A character string representing the header file name

Details

The function performs the following steps:

1. If the input file_name already matches the header file format, it returns the file_name as is.

2. If the file_name matches the data file format, it constructs and returns the corresponding header file name.

3. If the file_name doesn't match either format, it throws an error.

See also

data_file, strip_extension for related file name manipulation

Examples

if (FALSE) { # \dontrun{
fmt <- new("FileFormat", header_extension = "hdr", data_extension = "img")
header_file(fmt, "brain_scan.hdr")  # Returns "brain_scan.hdr"
header_file(fmt, "brain_scan.img")  # Returns "brain_scan.hdr"
} # }