I want to download the dirty_data.xlsx dataset from Github… I thought I can do that after watch several tutorial, and even the other similar questions in stackoverflow… but still fail.
Can anyone help on it?

The below is the attempt I have tried :

url <- "https://github.com//sfirke//janitor//blob//main//dirty_data.xlsx"

download.file(url,
              destfile = basename(url),
              mode = "wb")

data <- readxl::read_xlsx(basename(url))

But I got the error below :

Error in utils::unzip(zip_path, list = TRUE) : 
  zip file 'C:Learningsdirty_data.xlsx' cannot be opened