I have used this code:
library(openxlsx)
fileUrl <- "http://d396qusza40orc.cloudfront.net/getdata%2Fdata%2FDATA.gov_NGAP.xlsx"
d <- download.file(fileUrl,destfile = "C:/Users/skoma/Desktop/data/dat.xlsx")
data <- read.xlsx("dat.xlsx")
This is the error coming up:
Error in file(con, "r") : invalid 'description' argument In addition: Warning message: In unzip(xlsxFile, exdir = xmlDir) : internal error in 'unz' code