From 918d335be65296cd5acbe82b76d694f168ca36a3 Mon Sep 17 00:00:00 2001
From: Ben Bolker <bbolker@gmail.com>
Date: Fri, 6 May 2022 18:22:47 -0400
Subject: [PATCH] fix up vignette for noSuggests

---
 inst/NEWS.Rd        |  7 ++++++-
 vignettes/quasi.Rnw | 35 +++++++++++++++++++----------------
 2 files changed, 25 insertions(+), 17 deletions(-)

diff --git a/inst/NEWS.Rd b/inst/NEWS.Rd
index 9d92508..dbca54d 100755
--- a/inst/NEWS.Rd
+++ b/inst/NEWS.Rd
@@ -4,12 +4,17 @@
 \title{bbmle News}
 \encoding{UTF-8}
 
-\section{Changes in version 1.0.2.5}{
+\section{Changes in version 1.0.25}{
   \subsection{USER-VISIBLE CHANGES}{
     \itemize{
       \item \code{mle2.options()} function is now exported
     }
   }    
+  \subsection{CRAN COMPATIBILITY}{
+    \itemize{
+      \item vignettes will build without suggested packages
+    }
+  }
 }
 
 \section{Changes in version 1.0.24 (2021-08-06)}{
diff --git a/vignettes/quasi.Rnw b/vignettes/quasi.Rnw
index d0c6973..326a69a 100755
--- a/vignettes/quasi.Rnw
+++ b/vignettes/quasi.Rnw
@@ -149,28 +149,31 @@ detach("package:bbmle")
 \subsection*{\code{AICcmodavg}}
 
 <<AICcmodavg>>=
-library(AICcmodavg)
-aictab(list(glmOT.D93,glmT.D93,glmO.D93,glmX.D93), 
-       modnames=c("OT","T","O","X"),
-       c.hat=dfun(glmOT.D93))
-detach("package:AICcmodavg")
+if (require("AICcmodavg")) {
+    aictab(list(glmOT.D93,glmT.D93,glmO.D93,glmX.D93), 
+           modnames=c("OT","T","O","X"),
+           c.hat=dfun(glmOT.D93))
+    detach("package:AICcmodavg")
+}
 @ 
 
 \subsection*{\code{MuMIn}}
 
 <<MuMin>>=
-library(MuMIn); packageVersion("MuMIn")
-## from ?QAIC
-x.quasipoisson <- function(...) {
-    res <- quasipoisson(...)
-    res$aic <- poisson(...)$aic
-    res
+if (require("MuMIn")) {
+    packageVersion("MuMIn")
+    ## from ?QAIC
+    x.quasipoisson <- function(...) {
+        res <- quasipoisson(...)
+        res$aic <- poisson(...)$aic
+        res
+    }
+    glmQOT2.D93 <- update(glmOT.D93,family="x.quasipoisson",
+                          na.action=na.fail)
+    (gg <-  dredge(glmQOT2.D93,rank="QAIC", chat=dfun(glmOT.D93)))
+    (ggc <- dredge(glmQOT2.D93,rank="QAICc",chat=dfun(glmOT.D93)))
+    detach("package:MuMIn")
 }
-glmQOT2.D93 <- update(glmOT.D93,family="x.quasipoisson",
-                      na.action=na.fail)
-(gg <-  dredge(glmQOT2.D93,rank="QAIC", chat=dfun(glmOT.D93)))
-(ggc <- dredge(glmQOT2.D93,rank="QAICc",chat=dfun(glmOT.D93)))
-detach("package:MuMIn")
 @ 
 
 Notes: ICtab only gives delta-IC, limited decimal places