R/get.fitskey.R

In taranu/astro: Astronomy Functions, Tools and Routines

get.fitskey = function(key, hdr){
    
    # setup results vector
    vals = rep(NA, length(key))
    
    # get existing keys
    if(any(key %in% hdr[,"key"])){
        
        # determine order of vectors
        inhdr = which(hdr[,"key"] %in% key)
        inkey = which(key %in% hdr[,"key"])
        matched = inhdr[match(hdr[inhdr,"key"],key[inkey])]
        
        # get key values
        vals[inkey] = hdr[matched,"value"]
        
    }
    
    # return results
    return(as.vector(vals))
    
}