Support shapefile in tar.gz

Support shapefile in tar.gz
```
# test case 
some_url <- "ftp://newftp.epa.gov/Air/emismod/2016/alpha/spatial_surrogates/shapefiles/2014shapefiles.golf_courses.tar.gz"
mapview(read_shp(some_url))
```
#2 