negate

rhijmans · rhijmans · commit 5e181578db60 · 2018-11-01T13:49:32.000-07:00
diff --git a/R/arith.R b/R/arith.R
@@ -3,6 +3,18 @@
 # Version 1.0
 # Licence GPL v3
 
+
+setMethod("Arith", signature(e1='Raster', e2='missing'),
+    function(e1, e2){ 
+		oper <- as.vector(.Generic)[1]
+		if (oper == "-") {
+			e1 <- -1 * e1
+		}
+		e1
+	}
+)
+
+
 setMethod("Arith", signature(e1='Raster', e2='Raster'),
     function(e1, e2){ 
 
