Question

我将文件存储在我的Dropbox上，我通过shin2pp在shinyapps.io上托管的shinyapp上访问它们。以下代码在我的笔记本电脑上运行良好，但在我在shinyapp.io上部署我的应用程序并冻结不透明屏幕时中止。关于为什么以及如何排除故障的任何线索？谢谢你！ - 斯蒂芬

以下是我正在使用的代码（来自https://github.com/karthik/rdrop2）：

  token<-drop_auth()
  saveRDS(token, "droptoken.rds")
  token <- readRDS("droptoken.rds")
  ZIPFile<-drop_read_csv(as.character(ZIPCode),sep="",dtoken=token)

ShinyApp日志：

2015-10-16T17：55：46.965850 + 00:00 shinyapps [64206]：警告：观察者中未处理的错误：oauth_listener（）需要交互式环境。
  2015-10-16T17：55：46.965853 + 00:00 shinyapps [64206]：观察（{
  2015-10-16T17：55：46.965854 + 00:00 shinyapps [64206]：if（输入$ Recalc＆lt; 1）
  2015-10-16T17：55：46.965856 + 00:00 shinyapps [64206]：return（）
  2015-10-16T17：55：46.965857 + 00:00 shinyapps [64206]：ZIPCode＆lt; - isolate（输入$ NewZIP）
  2015-10-16T17：55：46.965858 + 00:00 shinyapps [64206]：token＆lt; - drop_auth（）
  2015-10-16T17：55：46.965859 + 00:00 shinyapps [64206]：saveRDS（token，＆＃34; droptoken.rds＆＃34;）
  2015-10-16T17：55：46.965861 + 00:00 shinyapps [64206]：token＆lt; - readRDS（＆＃34; droptoken.rds＆＃34;）
  2015-10-16T17：55：46.965862 + 00:00 shinyapps [64206]：ZIPFile＆lt; - drop_read_csv（as.character（ZIPCode），sep =＆＃34;＆＃34;，
  2015-10-16T17：55：46.965863 + 00:00 shinyapps [64206]：dtoken = token）

Answer 1

问题解决了：重新审视了rdrop2提供的说明：

第一行代码将在本地完成，仅执行一次：

token<-drop_auth() saveRDS(token, "droptoken.rds")
文件droptoken.rds将存储在与开发应用程序相同的文件夹结构下。
最后两行代码将保存在应用程序中：

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

这样，当您在服务器上部署应用程序时，您还可以使用它来部署令牌。提出了一些安全问题，但我需要在r下用dropbox等待oauth的一套好的指令。

ShinyApp - 使用rdrop2进行Dropbox身份验证

1 个答案: