solved the warning on ggven when show_elements = FLASE

[EmanuelSoda]

As reported in the #29 when the show_elements was set to FLASE the function return a warning. The problem was that fmt <- sprintf("%%d\n(%%.%df%%%%)", digits) was performed only when show_elements was TRUE. Now the problem is solved.