Question

我一直在尝试使用opencpu通过R库googledrive导入一些Gdrive文件（二进制文件，而不是Gsheets或Gdocs）。我的代码在本地运行良好或作为Shiny应用程序部署，但是Opencpu似乎无法读取.httr-oauth（或者我不知道将其放置在何处以便Opencpu能够读取它）。无论如何，我总是收到错误“无法创建服务器”。

我尝试将auth令牌另存为本地文件，并成功将其加载到opencpu中，我尝试将.httr-oauth文件放在data文件夹，www文件夹，inst / www文件夹中甚至在R文件夹中，也无法使用。

我的代码是这样的（我删除了对实际Gdrive文件的引用）：

Estrai <- function(dataset,start=NULL,end=NULL) {
  library(googledrive)
  library(foreign)
  library(openair)
  drive_auth()
  x<-as_id("https://drive.google.com/open?id=xxxxxxx")
  drive_download(x,overwrite=TRUE)
  x2<-as_id("https://drive.google.com/open?id=xxxxxxx")
  drive_download(x2,overwrite=TRUE)
  spc<-read.dta("xxxxxx.dta")
  spc$date<-as.POSIXct(paste0(spc$year,"-",spc$month,"-",spc$day," ",spc$hh,":00"),format="%Y-%m-%d %H:%M")
  bo<-read.dta("xxxx.dta")
  bo$date<-as.POSIXct(paste0(bo$year,"-",bo$month,"-",bo$day," ",bo$hh,":00"),format="%Y-%m-%d %H:%M")
  if (dataset=="dr"){
    uscita1=paste0("SPC: da ",min(spc$date)," a ",max(spc$date))
    uscita2=paste0("BO: da ",min(bo$date)," a ",max(bo$date))
    uscita=paste(uscita1,uscita2,sep="\n")
  }
  if (dataset=="spc"){
    uscita=selectByDate(spc,start,end)
  }
  if (dataset=="bo"){
    uscita=selectByDate(bo,start,end)
  }
  return(uscita)
}

'''

有什么主意吗？谢谢。

来自opencpu的Google云端硬盘授权

0 个答案: