numD() was returning function invisibly. Now it's visible.

dtkaplan · dtkaplan · commit 8fd83c2d862d · 2025-02-19T17:04:16.000-06:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -9,7 +9,7 @@ Description: Software to support the introductory *MOSAIC Calculus*
     applied linear algebra (for data science), and differential equations/dynamics.
     Includes grammar-of-graphics-based functions for drawing vector fields, trajectories, etc.
     The software is suitable for general use, but intended mainly for teaching calculus.
-Version: 0.6.5
+Version: 0.6.5.9001
 Depends:
     R (>= 3.5.0)
 Imports:
diff --git a/NEWS.md b/NEWS.md
@@ -7,6 +7,8 @@
 * Added "linewidth" argument to slice_plot(). Same meaning as in ggplot2.
 * Added World_oil dataframe
 * Exporting model_fit() from mosaic
+* Fixed bug in numD() that prevented function from being returned visably.
+
 
 # mosaicCalc 0.6.4
 
diff --git a/R/numD.R b/R/numD.R
@@ -74,13 +74,11 @@ numD <- function(tilde, ..., .h=NULL) {
     the_h <- ifelse(is.null(.h), 0.001, .h)
     res = make_d2fdfdy(f, dvars[1], dvars[2], .h = the_h) %>% 
       bind_params(formals(f))
-
-  if (length(dvars)>2){
+  } else if (length(dvars)>2){
     stop("Derivative order greater than 2 not yet implemented.")
   }
   
   res
-  }
 }
 # =================
 # Formal arguments are named to avoid conflicts with the contents of the mathematical function

Original file line number	Diff line number	Diff line change
`@@ -74,13 +74,11 @@ numD <- function(tilde, ..., .h=NULL) {`
`74`	`74`	`the_h <- ifelse(is.null(.h), 0.001, .h)`
`75`	`75`	`res = make_d2fdfdy(f, dvars[1], dvars[2], .h = the_h) %>%`
`76`	`76`	`bind_params(formals(f))`
`77`		`-`
`78`		`- if (length(dvars)>2){`
	`77`	`+ } else if (length(dvars)>2){`
`79`	`78`	`stop("Derivative order greater than 2 not yet implemented.")`
`80`	`79`	`}`
`81`	`80`
`82`	`81`	`res`
`83`		`- }`
`84`	`82`	`}`
`85`	`83`	`# =================`
`86`	`84`	`# Formal arguments are named to avoid conflicts with the contents of the mathematical function`