Scraping with Rvest table has every odd column of header rows and even column of data

Question

Greetings I am trying to scrape this table finviz-MSFT

My code:

library(rvest)

html_data_fn <- read_html("