remove unzipped files in extdata

inst/dev/01_import.R

@@ -5,16 +5,19 @@ library(tmap)
 library(utils)
 library(data.table)
 library(maptools)
+library(tools)
 
 settings <- list()
 settings$hierarchy <- list()
 settings$hierarchy$municipalities <- file.path(getwd(), "inst", "extdata", "TF_PSNL_INC_TAX_MUNTY_tcm325-272513.zip")
 settings$hierarchy$nis.sectors <- file.path(getwd(), "inst", "extdata", "TF_PSNL_INC_TAX_SECTOR_tcm325-278417.zip")
+settings$nis.sectors <- file.path(getwd(), "inst", "extdata", "scbel01012011_gen13_tcm325-275679.zip")
+settings$agglomeraties <- file.path(getwd(), "inst", "extdata", "SH_CENSUS_2011_AGGLOMERATIONS_200M.shp_tcm325-276234.zip")
+unzip(settings$nis.sectors, list = FALSE, exdir = file_path_sans_ext(settings$nis.sectors))
+unzip(settings$agglomeraties, list = FALSE, exdir = file_path_sans_ext(settings$agglomeraties))
 settings$nis.sectors <- file.path(getwd(), "inst", "extdata", "scbel01012011_gen13_tcm325-275679", "scbel01012011_gen13.shp")
 settings$agglomeraties <- file.path(getwd(), "inst", "extdata", "SH_CENSUS_2011_AGGLOMERATIONS_200M.shp_tcm325-276234", "SH_CENSUS_2011_AGGLOMERATIONS_200M.shp")
 
-
-
 ##
 ## Import NIS hierarchy
 ##

inst/extdata/SH_CENSUS_2011_AGGLOMERATIONS_200M.shp_tcm325-276234/SH_CENSUS_2011_AGGLOMERATIONS_200M.cpg

-UTF-8
\ No newline at end of file

inst/extdata/SH_CENSUS_2011_AGGLOMERATIONS_200M.shp_tcm325-276234/SH_CENSUS_2011_AGGLOMERATIONS_200M.prj

-PROJCS["Belge_1972_Belgian_Lambert_72",GEOGCS["GCS_Belge 1972",DATUM["D_Belge_1972",SPHEROID["International_1924",6378388,297]],PRIMEM["Greenwich",0],UNIT["Degree",0.017453292519943295]],PROJECTION["Lambert_Conformal_Conic"],PARAMETER["standard_parallel_1",51.16666723333333],PARAMETER["standard_parallel_2",49.8333339],PARAMETER["latitude_of_origin",90],PARAMETER["central_meridian",4.367486666666666],PARAMETER["false_easting",150000.013],PARAMETER["false_northing",5400088.438],UNIT["Meter",1]]
\ No newline at end of file

inst/extdata/SH_CENSUS_2011_AGGLOMERATIONS_200M.shp_tcm325-276234/SH_CENSUS_2011_AGGLOMERATIONS_200M.qpj

-PROJCS["Belge 1972 / Belgian Lambert 72",GEOGCS["Belge 1972",DATUM["Reseau_National_Belge_1972",SPHEROID["International 1924",6378388,297,AUTHORITY["EPSG","7022"]],TOWGS84[-106.869,52.2978,-103.724,0.3366,-0.457,1.8422,-1.2747],AUTHORITY["EPSG","6313"]],PRIMEM["Greenwich",0,AUTHORITY["EPSG","8901"]],UNIT["degree",0.0174532925199433,AUTHORITY["EPSG","9122"]],AUTHORITY["EPSG","4313"]],PROJECTION["Lambert_Conformal_Conic_2SP"],PARAMETER["standard_parallel_1",51.16666723333333],PARAMETER["standard_parallel_2",49.8333339],PARAMETER["latitude_of_origin",90],PARAMETER["central_meridian",4.367486666666666],PARAMETER["false_easting",150000.013],PARAMETER["false_northing",5400088.438],UNIT["metre",1,AUTHORITY["EPSG","9001"]],AXIS["X",EAST],AXIS["Y",NORTH],AUTHORITY["EPSG","31370"]]

inst/extdata/scbel01012011_gen13_tcm325-275679/scbel01012011_gen13.CPG

-UTF-8
\ No newline at end of file

inst/extdata/scbel01012011_gen13_tcm325-275679/scbel01012011_gen13.prj

-PROJCS["Belge_Lambert_1972",GEOGCS["GCS_Belge_1972",DATUM["D_Belge_1972",SPHEROID["International_1924",6378388.0,297.0]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Lambert_Conformal_Conic"],PARAMETER["False_Easting",150000.01256],PARAMETER["False_Northing",5400088.4378],PARAMETER["Central_Meridian",4.367486666666666],PARAMETER["Standard_Parallel_1",49.8333339],PARAMETER["Standard_Parallel_2",51.16666733333333],PARAMETER["Latitude_Of_Origin",90.0],UNIT["Meter",1.0]]
\ No newline at end of file

inst/extdata/scbel01012011_gen13_tcm325-275679/scbel01012011_gen13.shp.xml

-<?xml version="1.0" encoding="UTF-8"?>
-<metadata xml:lang="fr"><Esri><CreaDate>20151207</CreaDate><CreaTime>11395700</CreaTime><ArcGISFormat>1.0</ArcGISFormat><SyncOnce>TRUE</SyncOnce><DataProperties><lineage><Process ToolSource="c:\program files (x86)\arcgis\desktop10.2\ArcToolbox\Toolboxes\Data Management Tools.tbx\CalculateField" Date="20150306" Time="100642">CalculateField scbel01012011_gen10 Gis_area_h [Area_ha] VB #</Process><Process ToolSource="c:\program files (x86)\arcgis\desktop10.2\ArcToolbox\Toolboxes\Data Management Tools.tbx\CalculateField" Date="20150306" Time="101024">CalculateField scbel01012011_gen10 Cad_area_h [Cad_area_a]/100 VB #</Process></lineage><itemProps><itemLocation><linkage Sync="TRUE">file://\\mineco2000\dfs-eco\E8\0536-849-GIS\GIS\BASE\diffusisec2011\diffusionsectgeneralise\scbel01012011_gen13</linkage><protocol Sync="TRUE">Local Area Network</protocol></itemLocation></itemProps><copyHistory><copy source="Z:\E8\0536-849-GIS\GIS\BASE\e4.sec2011\scbel01012011_gen13" dest="\\mineco2000\dfs-eco\E8\0536-849-GIS\GIS\BASE\diffusisec2011\diffusionsectgeneralise\scbel01012011_gen13" date="20151207" time="11395700"></copy></copyHistory></DataProperties></Esri></metadata>