Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- for(j in list(".shp", ".shx", ".dbf"))
- {
- fname <- unzip(file=paste("zupanije", j, sep=""), zipfile= "pakistan.zip")
- file.copy(fname, paste("./pakistan", j, sep="/"), overwrite=TRUE)
- }
- unlink("pakistan.zip")
Add Comment
Please, Sign In to add comment