maybe try this:
```
if(is.gzip(file)) file<-gzfile(file) else file(file)
```