shinyapps.io无法将数据保存到Dropbox:一旦上载文件,就会断开与服务器的连接
我构建了一个小应用程序来测试我是否可以在应用程序中上传一个文件,并将上传的文件保存到Dropbox中。它在我的本地Rstudio中运行良好,但是当我将它部署到shinyapps.io时,我上传文件后就得到了“与服务器断开连接”的消息。我在Mac OX环境中,以下是我的代码:shinyapps.io无法将数据保存到Dropbox:一旦上载文件,就会断开与服务器的连接,shiny,Shiny,我构建了一个小应用程序来测试我是否可以在应用程序中上传一个文件,并将上传的文件保存到Dropbox中。它在我的本地Rstudio中运行良好,但是当我将它部署到shinyapps.io时,我上传文件后就得到了“与服务器断开连接”的消息。我在Mac OX环境中,以下是我的代码: ui.R: library(shiny) library(rdrop2) ui=shinyUI(bootstrapPage( fileInput("upload", "Upload", multiple = FAL
ui.R:
library(shiny)
library(rdrop2)
ui=shinyUI(bootstrapPage(
fileInput("upload", "Upload", multiple = FALSE)
))
server.R:
library(shiny)
library(rdrop2)
outputDir <- "test"
shinyServer(function(input, output, session) {
token <- readRDS("droptoken.rds")
drop_acc(dtoken = token)
dataInput <- reactive({
file1 <- input$upload
clientData <- read.csv(file1$datapath, header=TRUE)
clientData
})
GetUserName <- function() {
x <- Sys.info()[["user"]]
if (is.null(x) | x == "") {
Sys.getenv("USERNAME")
} else {
Sys.getenv("LOGNAME")
}
if (identical(x, "unknown")) {
warning("unknown returned")
}
return(x)
}
observeEvent(input$upload, {
saveData(dataInput())
})
saveData <- function(data) {
fileName <- sprintf("%s_%s_%s.csv", GetUserName(), as.integer(Sys.time()), digest::digest(data))
filePath <- file.path(tempdir(), fileName)
write.csv(data, filePath, row.names = TRUE, quote = TRUE)
drop_upload(filePath, dest = outputDir)
}
})
ui.R:
图书馆(闪亮)
图书馆(rdrop2)
ui=shinyUI(自举)(
fileInput(“上载”、“上载”,多个=FALSE)
))
服务器.R:
图书馆(闪亮)
图书馆(rdrop2)
outputDir而不是:-
fileName <- sprintf("%s_%s_%s.csv", GetUserName(), as.integer(Sys.time()), digest::digest(data))
filePath <- file.path(tempdir(), fileName)
write.csv(data, filePath, row.names = TRUE, quote = TRUE)
drop_upload(filePath, dest = outputDir)
文件名
fileName <- sprintf("%s_%s_%s.csv", GetUserName(), as.integer(Sys.time()),
write.csv(data, fileName, row.names = TRUE, quote = TRUE)
token <- readRDS("droptoken.rds")
drop_acc(dtoken = token)
drop_upload(fileName, dest = outputDir,dtoken=token)
#token<-drop_auth()
#saveRDS(token, "droptoken.rds")