fix issue #56

slowkow · Nov 8, 2016 · a2f6b11 · a2f6b11
1 parent 2c72e09
commit a2f6b11
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 10 deletions.
diff --git a/R/geom-label-repel.R b/R/geom-label-repel.R
@@ -93,10 +93,6 @@ GeomLabelRepel <- ggproto(
       lab <- parse(text = as.character(lab))
     }
 
-    # Get the x and y limits of the panel area.
-    limits <- data.frame(x = panel_scales$x.range, y = panel_scales$y.range)
-    limits <- coord$transform(limits, panel_scales)
-
     # Transform the nudges to the panel scales.
     nudges <- data.frame(
       x = data$x + nudge_x,
@@ -112,7 +108,7 @@ GeomLabelRepel <- ggproto(
     nudges$y <- nudges$y - data$y
 
     ggname("geom_label_repel", gTree(
-      limits = limits,
+      limits = data.frame(x = c(0, 1), y = c(0, 1)),
       data = data,
       lab = lab,
       nudges = nudges,

diff --git a/R/geom-text-repel.R b/R/geom-text-repel.R
@@ -228,10 +228,6 @@ GeomTextRepel <- ggproto("GeomTextRepel", Geom,
       lab <- parse(text = lab)
     }
 
-    # Get the x and y limits of the panel area.
-    limits <- data.frame(x = panel_scales$x.range, y = panel_scales$y.range)
-    limits <- coord$transform(limits, panel_scales)
-
     # Transform the nudges to the panel scales.
     nudges <- data.frame(
       x = data$x + nudge_x,
@@ -247,7 +243,7 @@ GeomTextRepel <- ggproto("GeomTextRepel", Geom,
     nudges$y <- nudges$y - data$y
 
     ggname("geom_text_repel", gTree(
-      limits = limits,
+      limits = data.frame(x = c(0, 1), y = c(0, 1)),
       data = data,
       lab = lab,
       nudges = nudges,