| ... | ... |
@@ -50,7 +50,7 @@ readBed <- function(bedFile, assemblyFn=NULL){
|
| 50 | 50 |
### read the axt files into an axt object. |
| 51 | 51 |
### Exported! |
| 52 | 52 |
readAxt <- function(axtFiles, tAssemblyFn=NULL, qAssemblyFn=NULL){
|
| 53 |
- if(any(duplicated(file_ext(axtFiles)))) |
|
| 53 |
+ if(length(unique((file_ext(axtFiles)))) > 1) |
|
| 54 | 54 |
stop("`axtFiles` must have same extensions!")
|
| 55 | 55 |
|
| 56 | 56 |
# Read axt files into R axt object. |
