Updates

fischuu · Feb 15, 2023 · 63653f2 · 63653f2
1 parent 8b6ef54
commit 63653f2
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: GenomicTools
 Type: Package
 Title: Collection of Tools for Genomic Data Analysis
-Version: 0.3.5
+Version: 0.3.6
 Date: 2023-02-15
 Author: Daniel Fischer
 Maintainer: Daniel Fischer <[email protected]>

diff --git a/R/KEGGfunctions.R b/R/KEGGfunctions.R
@@ -82,8 +82,7 @@ getKEGGModule <- function(module){
     ORTHOLOGY.tmp <- strsplit(ORTHOLOGY.tmp, " ")
 
     ORTHOLOGY.out <- data.frame(Orthology=sapply(ORTHOLOGY.tmp,"[",1),
-                                Desc=trimws(sapply(sapply(ORTHOLOGY.tmp,"[",-1), paste, collapse=" "))
-                                )
+                                Desc=apply(t(sapply(ORTHOLOGY.tmp,"[",-c(1,2))),1,paste, collapse=" "))
 
   } else {
     ORTHOLOGY.out <- "Not available"

diff --git a/inst/ChangeLog b/inst/ChangeLog
@@ -14,6 +14,7 @@ Planned improvements for 0.4:
 * Reduce redundancy between eQTL and QTL
 
 Version 0.3.*:
+* (6) The getKEGGModule() function had an issue and reported repeatedly same orthologs.
 * (5) Added function getKEGGModuleOverview()
 * (2) Orthologies are now also extracted from the function getKEGGPathway()
 * (1) REGEX for grep of starting and ending lines in getKEGGPathway adjusted

diff --git a/man/GenomicTools-package.Rd b/man/GenomicTools-package.Rd
@@ -17,8 +17,8 @@
   \tabular{ll}{
     Package: \tab GenomicTools\cr
     Type: \tab Package\cr
-    Version: \tab 0.3.3\cr
-    Date: \tab 2022-01-31\cr
+    Version: \tab 0.3.6\cr
+    Date: \tab 2023-02-15\cr
     License: \tab GPL\cr
     LazyLoad: \tab yes\cr
   }