Browse code

add as.character,GmapGenomeDirectory

Michael Lawrence authored on 14/11/2017 22:42:56
Showing1 changed files

... ...
@@ -45,6 +45,12 @@ GmapGenomeDirectory <- function(path = getDefaultGmapGenomePath(),
45 45
   new("GmapGenomeDirectory", path = file_path_as_absolute(path))
46 46
 }
47 47
 
48
+### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
49
+### Coerce
50
+###
51
+
52
+setMethod("as.character", "GmapGenomeDirectory", function(x) path(x))
53
+
48 54
 ### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
49 55
 ### Show
50 56
 ###