## Not run:
# library(gmapR)
#
# if (!require(BSgenome.Dmelanogaster.UCSC.dm3)) {
# library(BiocInstaller)
# biocLite("BSgenome.Dmelanogaster.UCSC.dm3")
# library(BSgenome.Dmelanogaster.UCSC.dm3)
# }
#
# gmapGenomePath <- file.path(getwd(), "flyGenome")
# if (file.exists(gmapGenomePath)) unlink(gmapGenomePath, recursive=TRUE)
# ggd <- GmapGenomeDirectory(gmapGenomePath, create = TRUE)
# gmapGenome <- GmapGenome(genome=Dmelanogaster,
# directory = ggd,
# name = "dm3",
# create = TRUE)
#
# makeGmapGenomePackage(gmapGenome=gmapGenome,
# version="0.1.0",
# maintainer="<your.name@somewhere.com>",
# author="Your Name",
# destDir=".",
# license="Artistic-2.0",
# pkgName="GmapGenome.Dmelanogaster.UCSC.dm3")
#
# ## End(Not run)
Run the code above in your browser using DataLab