change Draw graph label

main.R

@@ -684,7 +684,7 @@ generate_menu <- function() {
   if("RULEGRAPH" %in% names(APP)){
     name <- "RULEGRAPH"
     icon <- "gear"
-    menu <- "Draw workflow graph"
+    menu <- "Check workflow validity"
     res <- res + '\tmenuItem("'+menu+'", tabName="'+name+'", icon=icon("'+icon+'", lib="font-awesome"), newtab=FALSE),\n\n'
   }