Extract the header from the list and add it as a new row.

header_row <- colnames(scraped_data[[1]])
scraped_data[[1]] <- rbind(header_row, scraped_data[[1]])

Note that the column name remains the same