improve environment handling in update.gnm

NEWS.md

@@ -6,6 +6,7 @@ parameters, fixes #21.
 * Remove class check in `residSVD()`, so it can be applied to model objects 
 that do not inherit from class `"lm"`.
 * Improved handling of `"nonlin"` functions in formula: prioritise functions in gnm over other packages; handle namespacing with `::`. 
+* Enable `update.gnm` to be called within a function, fixes #11.
 
 Changes in gnm 1.1-2
 ====================

R/update.gnm.R

@@ -49,7 +49,7 @@ update.gnm <- function (object, formula., ..., evaluate = TRUE)
         }
     }
     if (evaluate)
-        eval(call, parent.frame())
+        eval(call, as.list(parent.frame()), environment(formula(object)))
     else call
 }
 

tests/testthat/test-confint.gnm.R

@@ -0,0 +1,13 @@
+context("model spec [Symm]")
+
+tol <- 1e-4
+
+test_that("confint works within function call", {
+    # https://github.com/hturner/gnm/issues/11
+    f <- function(d) {
+        fit <- gnm(Freq ~ vote, family = poisson, data = d)
+        confint(fit)
+    }
+    expect_known_value(f(as.data.frame(cautres)),
+                       file = test_path("outputs/confint.rds"))
+})