Use scalar operator in if condition

lionel- · lionel- · commit 3fc9309a757a · 2018-07-17T15:29:26.000+02:00
diff --git a/R/position-dodge.r b/R/position-dodge.r
@@ -108,7 +108,7 @@ PositionDodge <- ggproto("PositionDodge", Position,
   },
 
   setup_data = function(self, data, params) {
-    if (!"x" %in% names(data) & all(c("xmin", "xmax") %in% names(data))) {
+    if (!"x" %in% names(data) && all(c("xmin", "xmax") %in% names(data))) {
       data$x <- (data$xmin + data$xmax) / 2
     }
     data

Original file line number	Diff line number	Diff line change
`@@ -108,7 +108,7 @@ PositionDodge <- ggproto("PositionDodge", Position,`
`108`	`108`	`},`
`109`	`109`
`110`	`110`	`setup_data = function(self, data, params) {`
`111`		`- if (!"x" %in% names(data) & all(c("xmin", "xmax") %in% names(data))) {`
	`111`	`+ if (!"x" %in% names(data) && all(c("xmin", "xmax") %in% names(data))) {`
`112`	`112`	`data$x <- (data$xmin + data$xmax) / 2`
`113`	`113`	`}`
`114`	`114`	`data`