Fix ps1 header

Source: R/optical-utils.R

Fix ps1 header

fix_header_ps1(header)

Arguments

header

FITSio --> obj$hdr

Value

fixed_header

Examples

if (FALSE) {
f <- FITSio::readFITS("file.fits")
fix_header(f$hdr)
}