在Shiny服务器上传后，在R中解压缩文件

Question

我正在尝试在我们的本地服务器上使用Shiny，以构建一个允许用户上传包含ESRI shapefile和相关文件的.zip文件的应用程序。闪亮的服务器的fileInput可以获取数据，当它这样做时，它将它放在一个临时目录中。文件名。该文件名似乎总是相当通用的“0”。如果我手动尝试解压缩文件“0”它的工作原理。但是，如果我尝试使用R函数unz（我收集它应该工作）以编程方式执行它失败，错误消息是它'无法打开zip文件'0'。我不知道为什么。有人可以帮忙吗？

这是代码：

shinyServer(function(input, output) {

mySHPdata <- reactive({
inFile <- input$file1

if (is.null(inFile))
  return(NULL)
print((inFile$datapath))

data<-read.table(unz(basename(inFile$datapath), "testme.shp"))

一个人必须逐个提取相关文件，所以这里我只是说明尝试 打开其中一个。任何人都明白为什么这不起作用？

Answer 1

不应该是basename(inFile$datapath)，只是inFile$datapath，否则R不知道在哪里找到0文件。