Removal of the use of global variable in the .DiagramGR function

The .DiagramGR() function use a global variable to a get the used theme of the GUI, that is not clean. It is maybe a good idea to add a theme argument in the function.

.GlobalEnv$.ShinyGR.args$theme