fixing the behavior of the tooltip title, thanks to the suggestion pr…

…ovided by @thomas-keller! Fixes the #61
federicomarini · Jan 9, 2025 · caef3a9 · caef3a9
1 parent fe808f5
commit caef3a9
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/ggs_graph.R b/R/ggs_graph.R
@@ -197,7 +197,8 @@ ggs_graph <- function(res_enrich,
       "<h4>",
       sprintf('<a href="http://amigo.geneontology.org/amigo/term/%s" target="_blank">%s</a>', enriched_gsids[nodeIDs_gs], enriched_gsids[nodeIDs_gs]), "</h4><br>",
       V(g)$name[nodeIDs_gs], "<br><br>",
-      paste0(strwrap(enriched_gsdescs[nodeIDs_gs], 50), collapse = "<br>")
+      sapply(enriched_gsdescs[nodeIDs_gs],
+             function(x) paste0(strwrap(x, 50), collapse='<br>'))
     )
     V(g)$title[nodeIDs_genes] <- paste0(
       "<h4>", V(g)$name[nodeIDs_genes], "</h4><br>",