fix early exit

Author: teunbrand

R/geom-hex.R

@@ -5,10 +5,10 @@
 GeomHex <- ggproto("GeomHex", Geom,
   draw_group = function(self, data, panel_params, coord, lineend = "butt",
                         linejoin = "mitre", linemitre = 10) {
-    data <- fix_linewidth(data, snake_class(self))
     if (empty(data)) {
       return(zeroGrob())
     }
+    data <- fix_linewidth(data, snake_class(self))
 
     # Get hex sizes
     if (!is.null(data$width)) {