upload_no_gdrive.R

# Como upar planilhas automaticamente no Google Drive

library(googledrive)

#fazendo uma planilha de teste para upar no drive:

teste_gdrive <- c("a, b", "1,2")
teste_gdrive_df <- read.csv(text = teste_gdrive, strip.white = TRUE)
View(teste_gdrive_df)


#autenticação no google drive:

drive_find(n_max=10)  #aqui tu deve responder 2 para abrir o browse e tu logar no gdrive


#Salve a planilha em csv:

setwd("C:\\Users\\jvoig\\OneDrive\\Documentos\\Colab\\COLAB\\templates")


#Salvar com os seguintes parâmetros para que não dê erro para a exportação para spreadsheet:

write.table(teste_gdrive_df , file="teste_gdrive_df.csv", 
            sep=",", row.names=F, na="", quote = T) #aqui eu salvei com o write.table, mas poderia ser o data.table::fwrite()


#agora, ele vai buscar no diretório já setado o arquivo para upload:

drive_upload(
  "teste_gdrive_df.csv",
  path="~/TB/2018/",
  name = "teste2",
  type = "spreadsheet")


#path é o caminho onde o arquivo será guardado, o ~ é o "meu drive" e dai você especifica o 
#caminho ;)


#Obs: alternativa para salvar como Excel (as vezes é melhor)
library(xlsx)

write.xlsx(as.data.frame(objeto), 
           file="objeto.xlsx", sheetName="objeto",
           col.names=TRUE, row.names=FALSE, append=FALSE, showNA=FALSE)

## Download no Drive
library(googlesheets)

#Autenticação:
gs_ls() 

#Importando:
contatos_sheet <- gs_title("TDP_Contatos_produção_nova")

#Atribuindo o df a um objeto:
contatos_tdp <- gs_read(contatos_sheet)