如何解决是否将此normalizePath错误与Shiny应用无法返回正确的csv输出有关?
我正在制作一个使用pdftools
包处理PDF的Shiny应用程序。我收到两个我怀疑已连接的错误。代码如下,然后出现错误:
library(shiny)
library(pdftools)
# Define UI
ui <- fluidPage(
fluidPage(
titlePanel("PDF Extractor"),sidebarLayout(
sidebarPanel(
fileInput('file1','Choose PDF File'),downloadLink('downloadData','Download')
),mainPanel(
fluidPage(),)
)
)
)
# Define server
server <- function(input,output) {
getData <- reactive( {
if (is.null(input$file1))
return(NULL)
})
output$downloadData <- downloadHandler(
filename <- function() {
paste("test-",Sys.time(),".csv",sep = "")
},content = function(file1) {
pdf <- file1 #load in file
pdf_tbl <- pdf_data(pdf) #convert to list of tibbles
df <- ldply(pdf_tbl,data.frame) #convert list to dataframe
write.csv(df,file1,row.names = F) #save df as csv
}
)
}
# Run the app
shinyApp(ui,server)
错误1:上传PDF并单击“下载”后,应该让我下载PDF数据的csv。 csv应该称为test-SYS.TIME.csv
,但我得到的只是downloadData
,它是downloadLink
参数的outputID。
错误2:Warning: Error in normalizePath: path[1]="C:\Users\USERNAME\AppData\Local\Temp\RtmpujK1OE\file1f04482ceea.csv": The system cannot find the file specified
我在闪亮的应用程序运行时查看了此文件夹,并且确实在其中保存了上载PDF的临时副本,但单击“下载”后并没有保存csv。有other questions处理此特定错误,但未得到令人满意的答复。
那我在做什么错了?
谢谢!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。