Невозможно импортировать из файла Sharepoint Excel в набор данных R

Question

Я пытаюсь загрузить сайт Excel в Sharepoint в набор данных R. Но я продолжаю получать ошибки. Я также пробовал искать решения этой проблемы на форумах. Хотя у меня было много обновлений, ни одно из них у меня не работало. Вот то, что я пробовал до сих пор.

СПОСОБ 1:

    library(readxl)
    library(httr)
    url1 <- 'http://<companyname>.sharepoint.com/sites/<sitename>/Shared%20Documents/General/TRACKERS/<FolderName>/<TrackerName>.xlsx?d=wbae96ce171e14926863e453a8bec146a?Web=0'
    GET(url1,write_disk(tf <- tempfile(fileext = ".xlsx")))
    df <- read_excel(tf,sheet = "sheetname")

ВЫХОД 1:

GET(url1,write_disk(tf <- tempfile(fileext = ".xlsx")))
Response ['https://<companyname>.sharepoint.com/sites/<sitename>/Shared%20Documents/General/TRACKERS/<FolderName>/<TrackerName>.xlsx?d=wbae96ce171e14926863e453a8bec146a?Web=0']
Date: 2020-08-06 08:43
  Status: 400
  Content-Type: text/html; charset=us-ascii
  Size: 311 B
<ON DISK>  C:\Users\
\<username>\AppData\Local\Temp\RtmpuM3YpD\file2c646e4c5d50.xlsx
df <- read_excel(tf,sheet = "sheetname")
Error: Evaluation error: zip file 'C:\Users\<username>\AppData\Local\Temp\RtmpuM3YpD\file2c646e4c5d50.xlsx' cannot be opened.

Обратите внимание, что я добавил «? Интернет = 0 ” в конце URL-адреса для прямой загрузки xls.

СПОСОБ 2:

    url1 <- 'http://<companyname>.sharepoint.com/sites/<sitename>/Shared%20Documents/General/TRACKERS/<FolderName>/<TrackerName>.xlsx?d=wbae96ce171e14926863e453a8bec146a?Web=0'
    destfile <- "C:/Users/<username> /Downloads/<TrackerName>.xlsx"
    download.file(url = url1,destfile = destfile)
    df <- read_excel(destfile,sheet = "sheetname")

ВЫХОД 2:

trying URL …

cannot open URL …

HTTP status was '403 FORBIDDEN'Error in download.file(url = url1, destfile = destfile) :

cannot open URL …

СПОСОБ 3:

    url1 <- 'http://<companyname>.sharepoint.com/sites/<sitename>/Shared%20Documents/General/TRACKERS/<FolderName>/<TrackerName>.xlsx?d=wbae96ce171e14926863e453a8bec146a?Web=0'
    
    GET(url1,authenticate("<myusername>","<mypassword>", type = "any"),write_disk(tf <- tempfile(fileext = ".xls")))
    df <- read_excel(tf,sheet = "sheetname")

ВЫХОД 3:

GET(url1,authenticate("<myusername>","<mypassword>", type = "any"),write_disk(tf <- tempfile(fileext = ".xls")))

Response ['https://<companyname>.sharepoint.com/sites/<sitename>/Shared%20Documents/General/TRACKERS/<FolderName>/<TrackerName>.xlsx?d=wbae96ce171e14926863e453a8bec146a?Web=0']
 
 Date: 2020-08-06 09:04

  Status: 400

  Content-Type: text/html; charset=us-ascii

  Size: 311 B

\<ON DISK>  C:\Users\<username>\AppData\Local\Temp\RtmpuM3YpD\ file2c6456bd6d20.xlsx
df <- read_excel(tf,sheet = "sheetname")
Error: Evaluation error: zip file 'C:\Users\<username>\AppData\Local\Temp\RtmpuM3YpD\ file2c6456bd6d20.xlsx' cannot be opened.

Конечно, изначально я пробовал читать Excel напрямую из Sharepoint (метод 4 ниже) . Но это не сработало. Затем я попробовал указанные выше методы, сначала загрузив Excel, а затем импортировав в набор данных.

МЕТОД 4:

    url1 <- 'http://<companyname>.sharepoint.com/sites/<sitename>/Shared%20Documents/General/TRACKERS/<FolderName>/<TrackerName>.xlsx?d=wbae96ce171e14926863e453a8bec146a?Web=0'
    
    df <- read.xlsx(file = url1,sheetName = " sheetname")

ВЫХОД 4:

Error in loadWorkbook(file, password = password) : 

  Cannot find <url> …