直接在Shining应用程序中从Dropbox加载数据

直接在Shining应用程序中从Dropbox加载数据,r,rstudio,dropbox,shiny,R,Rstudio,Dropbox,Shiny,这是我上一个问题的继续。 我想在dropbox中存储数据并远程访问,我使用R的rdrop2包访问dropbox并直接从dropbox中获取数据 我知道dropbox的连接正在工作,我已经能够创建文件夹(单单元格数据)并从R Studio移动dropbox上的文件 当我在R Studio中本地运行应用程序时,我的应用程序运行良好,数据从dropbox上传并可以可视化 我在本地保存了令牌 token <- drop_auth() saveRDS(token, "droptoken.rds")

这是我上一个问题的继续。

我想在dropbox中存储数据并远程访问,我使用R的rdrop2包访问dropbox并直接从dropbox中获取数据

我知道dropbox的连接正在工作,我已经能够创建文件夹(单单元格数据)并从R Studio移动dropbox上的文件

当我在R Studio中本地运行应用程序时,我的应用程序运行良好,数据从dropbox上传并可以可视化

我在本地保存了令牌

token <- drop_auth()
saveRDS(token, "droptoken.rds")

token我不确定这是否能解决您的问题(我会留下评论而不是答案,但我没有足够的分数),但当我这样做时,我只是将droptoken.rds文件和.httr oauth文件保存在app文件夹中,而没有在server.R文件中显式调用它们。我只是简单地使用
drop\u read\u csv
命令,没有任何其他参数

mydata<-drop_read_csv('MyData.csv')

mydataClaytonJY确认了您的方法。设置的未来读者使用global.R或server.R顶部的drop_auth(rdstoken=“tokenfile.rds”)等令牌进行身份验证,然后正常调用其他drop_*()函数(不使用dtoken arg)。请注意,它不是rdstoken标记
token <- readRDS("droptoken.rds")

drop_acc(dtoken = token)

shinyServer(function(input, output) {



 observeEvent(input$text,{







output$distPlot <- renderPlot({

  geneExpressionMatrix_yf1 <- drop_read_csv("Single_Cell_RNAseq_data/geneExpressionMatrix_yf1.csv",dtoken=token)
  tsneCoordinates_yf1 <- drop_read_csv("Single_Cell_RNAseq_data/tsneCoordinates_yf1.csv",dtoken=token)
mydata<-drop_read_csv('MyData.csv')