Importar e exportar aquivos do one drive

Como faço para inserir credenciais que liberem o acesso de leitura e escrita no onedrive através do r?
Ao rodar o comando abaixo:
read.table(‘https://ENDERECO/:x:/s/DataScience/Ef8Pirw5zhdAtQpQH3pdItgBDp1gaWITtIyHYMAfvYizxA?e=AozcBT’, sep = ‘;’)

Tenho o seguinte erro:
Error in file(file, “rt”) : não é possível abrir a conexão
Além disso: Warning message:
In file(file, “rt”) :
cannot open URL ‘URL’: HTTP status was ‘403 Forbidden’

1 curtida

Esse me parece um erro de autorização. Eu testei essa reposta e funcionou para mim:

  • Baixar o arquivo manualmente clicando em “Baixar”

  • Ir na aba de downloads do Chrome e copiar o link público

Com esse link é possível ler normalmente:

x <- read.table("https://public.ch.files.1drv.com/y4mrgG9ilsTXGUaDk-H6V8YAoMAcNaTIIhQxMYkA2jglMtx-QCmIeGNT9K54cfiRj9W9Labkc5BNszH4t2ZXgpH8_UAqyGKH_CDQ7OHfCYIYWGGUFCMHr2SnbNkHg9uqFppGXgRy8j4O3kQ2VR5YwaQxdkhULzc40m3eOvYlw0_rJ4NE5nopLT2-eXm6TbVOPypXEMjtA2JAqGksyDpsZnIi6l_-d4E-_WPl_B7yJocHNY?access_token=EwAQA61DBAAUzl/nWKUlBg14ZGcybuC4/OHFdfEAAXJEV73AEXlgXKo/GarjUcfHBlQNJ9Gt3pF3toKEQ86UTn/a3dKDx0YVZhI85yTr8hGzxKVOHpO%2b97ILCwaSHdHIB/ertizzEFCTY%2bnIUDuOSGZpH2AlbEwKRMbJhAZ768emZT3Tvz3UMKebr3dno1q6ie5BEoglntOUELXfOlj3UpaY1cI4XR0WSZzA7SpBEcoWvMjDiRlaN/3P0OwK9aX8qE35k7hrZo2wPw9TYdsI2t7jLtMxjqVLZ4b0xrwe0YqDAFEttTejU05UTgwIcrHoU8FLhlUPbOIlU4DLthI/lLmK5SJrbxK6UHbnlypx7SEXxefZLzh5lvduF9I9whQDZgAACNwpjHiZTsxM4AFRzyYcsXSZWnuMSgYtnpOAeLkJ8LF8PGrMoiQblhklfEEMONyktedxZiyxYsOOdT6QpWRKOYCq2vI8Yjb807svxZB0Cnp80nz3oV9meoXqrwMn%2b0NL36dISnBjbNjyOnZvVoJYs3Cg5WJpoNzxsCEdIVGEfd75Hvhz7lSy%2bKC3kUXbGa9gkRXuZLARlkzw%2bCGfMVub5x8bcILumRZ45JUdemocOQEl4p49FapT9XykOU73FIKTY%2bunWN0c0luYMMTPPwNCOheynN73%2boltE1k%2bZ%2bXdL92zmsNE0tFh4C4VPv7XALhw%2b0%2bj3PZNlK0kLix%2bBmkPymaIGnPOdQ891m%2bzOfJypGkQ8l/wfRsvqFwObj%2bgxWnTwztAc1j9xGhIMQOR5NMDsn9GfTZTm1y%2bPhY2O5DtPX6YzJshW6YYd2Qkf8KUCHkeFPQS406qN72ZH%2bQiE9eVZYWR1m32hXJMGdzDvBgzd/8aHp0o%2bQb7/TMJy6H/VnuFkKTQtfmYohDUQDbHlEAeqNngpxvkQbP53vV/6w2U2nuX3IUedllq8N4T5aPmFYszIfgqfTU2ylM7imXooCNhkhNhmWQkhr7C5fXnipxoDjbZhTp%2bQBv7HgNIoPdExVOijf8SMG9cwJpJBOAFAg%3d%3d", sep = ",")
print(x)