Fix boundary case in array differentiation

mrc-ide · Dec 18, 2024 · c2f1cf1 · c2f1cf1
1 parent d399f40
commit c2f1cf1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dsl-differentiate-expr.R b/R/dsl-differentiate-expr.R
@@ -147,7 +147,7 @@ derivative <- list(
   `[` = function(expr, name) {
     target <- as.character(expr[[2]])
     if (target != name) {
-      return(name)
+      return(0)
     }
     index <- as.list(expr[-(1:2)])