library(KEGGREST)
library(png)

listDatabases() #list avail databases

keggInfo("kegg") #kegg release information
keggInfo("brite") #kegg release information
keggInfo("module") #kegg release information


#list kegg maps
#keggList("pathway")
write.table(data.frame(keggList("pathway")), "kegg-maps.tsv", col.names=F, row.names=T, quote=F, sep="\t")

#list ECs
#keggList("enzyme")
write.table(data.frame(keggList('enzyme')), "kegg-ECs.tsv", col.names=F, row.names=T, quote=F, sep="\t")

#list modules
#keggList("module")
write.table(data.frame(keggList('module')), "kegg-modules.tsv", col.names=F, row.names=T, quote=F, sep="\t")

#list kegg orthologies
#keggList("ko")
write.table(data.frame(keggList('ko')), "kegg-orthologies.tsv", col.names=F, row.names=T, quote=F, sep="\t")

#list kegg orthologies
#keggList("brite")
write.table(data.frame(keggList('brite')), "kegg-BRITE.tsv", col.names=F, row.names=T, quote=F, sep="\t")

#list kegg orthologies
#keggList("genome")
write.table(data.frame(keggList('genome')), "kegg-genome.tsv", col.names=F, row.names=T, quote=F, sep="\t")







temp2<-data.frame(keggConv("afu", "ncbi-proteinid"))

keggFind("module", "map00680")

keggFind("module", "methan")


png<-keggGet("path:map01200", "aaseq")
write(png,"test.png")