r - 在 Shiny 服务器上载后在 R 中解压文件

Question

我正在尝试在我们的本地服务器上使用 Shiny 来构建一个允许用户上传包含 ESRI shapefile 和相关文件的 .zip 文件的应用程序。 Shiny 服务器的 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 文件。