From d86efc7407e137b87a9348eddb19cda044649283 Mon Sep 17 00:00:00 2001
From: Holger Brandl <brandl@mpi-cbg.de>
Date: Mon, 16 Mar 2015 20:05:26 +0100
Subject: [PATCH] cont. dba
---
R/bio/diffex_commons.R | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/R/bio/diffex_commons.R b/R/bio/diffex_commons.R
index e618575..4e5c230 100644
--- a/R/bio/diffex_commons.R
+++ b/R/bio/diffex_commons.R
@@ -170,6 +170,13 @@ davidAnnotationChart <- function( someGenes, ontologies=DEF_DAVID_ONTOLOGIES ){
unloadNamespace('RDAVIDWebService')
- return(annoChart %>% subset(select=-Genes))
+ ## remove gene colum
+# browser()
+ annoChart <- as.data.frame(unclass(annoChart))
+
+ # http://stackoverflow.com/questions/25271856/cannot-coerce-class-typeof-is-double-to-a-data-frame
+ if(nrow(annoChart) >0) annoChart <- annoChart %>% dplyr::select(select=-Genes)
+
+ return(annoChart)
}
--
GitLab