Unable to read .xlsx file from google drive

[sale4cast]

The following url is actually a .xlsx file which is publicly shared. I got an error while reading this by using read_sheet(). Is there any possibility to fix it?.

library(googlesheets4)
url <- "https://docs.google.com/spreadsheets/d/1wtmmuPW6_lAbPzdtE7I9sNGfjor3dNjP/edit?gid=1925346935#gid=1925346935"
gs4_auth()
gs4_deauth()
data <- read_sheet(url)
head(data)

Error in gs4_get_impl_():
! Client error: (400) FAILED_PRECONDITION
• Request can not be executed in the current system state, such as deleting a non-empty directory.
• This operation is not supported for this document
Run rlang::last_trace() to see where the error occurred.