prettier negate arith implementation

rhijmans · rhijmans · commit d5526bc0e353 · 2018-11-01T15:11:37.000-07:00
diff --git a/R/arith.R b/R/arith.R
@@ -6,11 +6,7 @@
 
 setMethod("Arith", signature(e1='Raster', e2='missing'),
     function(e1, e2){ 
-		oper <- as.vector(.Generic)[1]
-		if (oper == "-") {
-			e1 <- -1 * e1
-		}
-		e1
+		methods::callGeneric(0, e1)
 	}
 )
 

Original file line number	Diff line number	Diff line change
`@@ -6,11 +6,7 @@`
`6`	`6`
`7`	`7`	`setMethod("Arith", signature(e1='Raster', e2='missing'),`
`8`	`8`	`function(e1, e2){`
`9`		`- oper <- as.vector(.Generic)[1]`
`10`		`- if (oper == "-") {`
`11`		`- e1 <- -1 * e1`
`12`		`- }`
`13`		`- e1`
	`9`	`+ methods::callGeneric(0, e1)`
`14`	`10`	`}`
`15`	`11`	`)`
`16`	`12`