fix swcReadData(): use more relaxed file name matching scheme

cynkra · Sep 22, 2014 · 4227f1d · 4227f1d
1 parent 7d93c51
commit 4227f1d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/swcReadData.R b/R/swcReadData.R
@@ -84,7 +84,7 @@ swcReadData <- function() .swcReadData()
   l <- lapply(X=ft, FUN=function(t) {
     logging::logdebug('Parsing data set: %s', t$n)
 
-    fname <- grep(paste0('_', t$n, '.txt'), file.list$Name, value=T)
+    fname <- grep(paste0('_', t$n, '(?:_.*)?[.]txt'), file.list$Name, value=T)
     fpath <- file.path(unzip.dir.name, fname)
     dat <- read.table(fpath, sep='\t', quote='', col.names=t$colnames, fileEncoding='ISO8859-15', stringsAsFactors=F)