Delete emtpy rows

Thomas Knecht · ThomasKnecht · commit c8fa99fd5de5 · 2019-10-01T08:45:43.000+02:00
diff --git a/R/position-nudgestack.R b/R/position-nudgestack.R
@@ -29,8 +29,6 @@ position_nudgestack <- function(x = 0, y = 0, vjust = 1, reverse = FALSE) {
   )
 }
 
-
-
 #' @rdname ggplot2-ggproto
 #' @format NULL
 #' @usage NULL
@@ -99,8 +97,6 @@ PositionNudgeStack <- ggproto("PositionNudgeStack", Position,
 
     data <- rbind(neg, pos)[match(seq_len(nrow(data)), c(which(negative), which(!negative))), ]
 
-
-
     # transform only the dimensions for which non-zero nudging is requested
     if (any(params$x != 0)) {
       if (any(params$y != 0)) {

Original file line number	Diff line number	Diff line change
`@@ -29,8 +29,6 @@ position_nudgestack <- function(x = 0, y = 0, vjust = 1, reverse = FALSE) {`
`29`	`29`	`)`
`30`	`30`	`}`
`31`	`31`
`32`		`-`
`33`		`-`
`34`	`32`	`#' @rdname ggplot2-ggproto`
`35`	`33`	`#' @format NULL`
`36`	`34`	`#' @usage NULL`
`@@ -99,8 +97,6 @@ PositionNudgeStack <- ggproto("PositionNudgeStack", Position,`
`99`	`97`
`100`	`98`	`data <- rbind(neg, pos)[match(seq_len(nrow(data)), c(which(negative), which(!negative))), ]`
`101`	`99`
`102`		`-`
`103`		`-`
`104`	`100`	`# transform only the dimensions for which non-zero nudging is requested`
`105`	`101`	`if (any(params$x != 0)) {`
`106`	`102`	`if (any(params$y != 0)) {`