update dataframe2htmltable in helpr.r

Implement using th tag for column names of input data frame.