find_header function

Find the header row in a data.frame