fix up vignette for noSuggests

bbolker · May 6, 2022 · 918d335 · 918d335
1 parent 3125b2c
commit 918d335
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 17 deletions.
diff --git 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
@@ -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