@@ -45,6 +45,12 @@ GmapGenomeDirectory <- function(path = getDefaultGmapGenomePath(),

   new("GmapGenomeDirectory", path = file_path_as_absolute(path))

 }

+### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

+### Coerce

+###

+

+setMethod("as.character", "GmapGenomeDirectory", function(x) path(x))

+

 ### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 ### Show

 ###