Download the Packages:

getwd()
## [1] "C:/Users/charl"
library(readr)
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.1.3
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
dat <-read_csv("C://Users/charl/OneDrive/Documents/x.csv.xlsx")
## Multiple files in zip: reading '[Content_Types].xml'
## Rows: 1 Columns: 1
## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (1): <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
## 
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.
dat
## # A tibble: 1 x 1
##   `<?xml version="1.0" encoding="UTF-8" standalone="yes"?>`                     
##   <chr>                                                                         
## 1 "<Types xmlns=\"http://schemas.openxmlformats.org/package/2006/content-types\~
class(dat)
## [1] "spec_tbl_df" "tbl_df"      "tbl"         "data.frame"

```