Bioconductor Code: Browse

Browse code

fix edge label for inhib. when data not added

From: Shana White <vandersm@mail.uc.edu>

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/KEGGlincs@124366 bc3139a8-67e5-0310-9ffc-ced21a209358

Shana White authored on 22/11/2016 19:47:33
Showing 1 changed files

R/edge_mapping_info.R index 1f6f009..53c3356 100644

R/edge_mapping_info.R

History View file @ 420a08d

@@ -111,9 +111,9 @@ function(expanded_edges, data_added = FALSE, significance_markup = FALSE){
                                                 expanded_edges$entry2symbol[i])
                 }
             else {
-                expanded_edges$tooltip <- 
-                    paste0(expanded_edges$entry1symbol, " --> ", 
-                                                expanded_edges$entry2symbol)
+                expanded_edges$tooltip[i] <- 
+                    paste0(expanded_edges$entry1symbol[i], " --> ", 
+                                                expanded_edges$entry2symbol[i])
             }
         }
     }

...	...	@@ -111,9 +111,9 @@ function(expanded_edges, data_added = FALSE, significance_markup = FALSE){
111	111	expanded_edges$entry2symbol[i])
112	112	}
113	113	else {
114		- expanded_edges$tooltip <-
115		- paste0(expanded_edges$entry1symbol, " --> ",
116		- expanded_edges$entry2symbol)
	114	+ expanded_edges$tooltip[i] <-
	115	+ paste0(expanded_edges$entry1symbol[i], " --> ",
	116	+ expanded_edges$entry2symbol[i])
117	117	}
118	118	}
119	119	}