CODE EXAMPLE FOR R

convert first row to header in r

header.true <- function(df) {
  names(df) <- as.character(unlist(df[1,]))
  df[-1,]
}