|
...
|
...
|
@@ -50,8 +50,8 @@ setGeneric("genomeName", function(x) standardGeneric("genomeName"))
|
|
50
|
50
|
|
|
51
|
51
|
setMethod("genomeName", "character", function(x) x)
|
|
52
|
52
|
setMethod("genomeName", "BSgenome", function(x) providerVersion(x))
|
|
53
|
|
-setMethods("genomeName", list("RTLFile", "RsamtoolsFile"),
|
|
54
|
|
- function(x) file_path_sans_ext(basename(path(x)), TRUE))
|
|
|
53
|
+setMethod("genomeName", "BiocFile",
|
|
|
54
|
+ function(x) file_path_sans_ext(basename(path(x)), TRUE))
|
|
55
|
55
|
setMethod("genomeName", "ANY", function(x) {
|
|
56
|
56
|
if (hasMethod("seqinfo", class(x))) {
|
|
57
|
57
|
ans <- unique(genome(x))
|
