Question

这是我上一个问题的延续。 Compress Data in R

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

我知道与Dropbox的连接正常，我已经能够创建文件夹（Single_Cell_RNAseq_data）并从R Studio移动Dropbox上的文件。

当我在R Studio中本地运行应用程序时，我的应用程序正常运行，数据从Dropbox上传并可以显示。

我在本地保存了令牌。

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

global.r脚本中的

token <- readRDS("droptoken.rds")
geneExpressionMatrix_yf1 <-    drop_read_csv("Single_Cell_RNAseq_data/geneExpressionMatrix_yf1.csv",dtoken=token)

但是在shinyapps.io上进行部署时，它给我带来了这个错误。

发生了错误 60.00秒后无法连接到工作人员;创业花了太长时间。

我发现了另一篇文章并尝试在server.r脚本中读取令牌和文件，但仍然无法读取应用程序中的文件。 Loading image file from Dropbox into R Shiny app

以下是我的server.r脚本的开头

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)

有什么建议吗？

谢谢，罗恩

Answer 1

我不确定这是否能解决你的问题（我会留下评论而不是答案，但我没有足够的分数），但是当我这样做时，我刚刚保存了droptoken。 rds文件和app文件夹中的.httr-oauth文件，不要在server.R文件中显式调用它们。我只是使用drop_read_csv命令而没有任何其他参数

mydata<-drop_read_csv('MyData.csv')

直接在Shiny App

1 个答案: