downloadTaifex.R L37 on windows unzip failed

[wush978]

> rptFiles = apply(dnFilesDF,1,function(xx){
+   do.call(download.file,as.list(xx))
+   unzip(xx[2], exdir = sprintf("./%s/",TAIFEX_RPT_DIR))
+ })
trying URL 'http://www.taifex.com.tw/Dailydownload_eng/Daily_2015_11_13.zip'
Content type 'application/x-zip-compressed' length 540193 bytes (527 KB)
downloaded 527 KB

 Show Traceback

 Rerun with Debug
 Error in unzip(xx[2], exdir = sprintf("./%s/", TAIFEX_RPT_DIR)) : 
  'exdir' does not exist