Shp download

gistfile1.r

  output$downloadShp <- downloadHandler(
    filename = 'fbCrawlExport.zip',
    content = function(file) {
      if (length(Sys.glob("fbCrawl.*"))>0){
        file.remove(Sys.glob("fbCrawl.*"))
      }
      writeOGR(getGeoContent(), dsn="fbCrawl.shp", layer="fbCrawl", driver="ESRI Shapefile")
      write.csv(as.data.frame(cbind(getGeoContent()@data, as.data.frame(getGeoContent()@coords))), "fbCrawl.csv")
      zip(zipfile='fbCrawlExport.zip', files=Sys.glob("fbCrawl.*"))
      file.copy("fbCrawlExport.zip", file)
      if (length(Sys.glob("fbCrawl.*"))>0){
        file.remove(Sys.glob("fbCrawl.*"))
      }
    }
  )

Thanks for sharing this, super helpful!

Indeed, many many thanks!

Hi guys
I am new to shiny App and have created a tool to convert csv to shapefile. I am using same code under downloadhandler but I am getting below error

Could you please guide me?
Thanks in adavance

For anyone having issues getting this code to work (as I did!), try two things:

1. Open the app in your browser. It won't download in the R environment.
2. If you're getting an error with the zip function, check out this solution utilizing Rtools. Worked for me!