Я создал приложение, которое позволяет пользователю загружать несколько файлов CSV.
Эти csv-файлы затем объединяются в rbind, read.csv, и к df добавляется столбец с именем файла.
Затем df обрабатывается для создания различных графиков, которые можно загрузить. Это отлично работает локально, но не при развертывании. Я воспроизвел ошибку с помощью следующего кода:
Предупреждение в файле (файл, "rt"): невозможно открыть файл '* .csv': такого файла или каталога нет
Предупреждение: ошибка в файле: не удается открыть соединение
UI:
dashboardPage( skin = "black",
dashboardHeader(title = "myApp"),
dashboardSidebar(collapsed = TRUE,
sidebarMenu(
menuItem("Home", tabName = "dashboard1", icon = icon("home", lib =
"glyphicon"))
)
),
dashboardBody(
tags$head(tags$style(HTML('
.main-header .logo {
font-family: "Times New Roman", serif;
font-weight: bold;
font-size: 24px;
}
'))),
tabItems(
tabItem(tabName = "dashboard1",
fileInput("file1",
label="Input files:",
multiple = TRUE),
downloadButton('plot.pdf', 'Download Data')
)
)
)
)
Сервер:
library(shiny)
library(shinydashboard)
#server start
function(input, output) {
testinput<- reactive({
if(is.null(input$file1))
return ()
else
{
nfiles = nrow(input$file1)
csv = list()
for (i in 1 : nfiles)
{
csv[[i]] = read.csv(input$file1$datapath[i])
}
csv_names <- input$file1[['name']]
mydata <- do.call(rbind, lapply(csv_names, function(x) cbind(read.csv(x), name=strsplit(x,'\\.')[[1]][1])))
View(mydata)
}
})
output$plot.pdf <- downloadHandler(
filename = function() {
"plot.pdf"
},
content = function(file) {
withProgress(message = 'Your file is downloading',
detail = 'This may take a minute or two...', value = 0, {
for (i in 1:10) {
incProgress(1/10)
Sys.sleep(0.5)}
pdf(file)
print(testinput())
dev.off()
})
}
)
}
Любая помощь могла бы быть полезна. Я искал тонны SO и других форумов, и я действительно застрял.
Пожалуйста помоги
ui
иserver
, а не только его часть. - person Jim Chen   schedule 17.09.2018