install.packages("readxl")
install.packages("writexl")

library(readxl)
library(writexl)

df <- read_excel("data_table.xlsx", sheet = "Sheet1")