Conditional logic for EpiModel version

Author: smjenness

.travis.yml

@@ -6,9 +6,6 @@ r:
   - release
   - devel
 
-r_github_packages:
-  statnet/EpiModel
-
 warnings_are_errors: true
 
 notifications:

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: tergmLite
-Version: 2.2.0
-Date: 2020-07-20
+Version: 2.2.1
+Date: 2020-07-22
 Title: Fast Simulation of Simple Temporal Exponential Random Graph Models
 Authors@R: c(person("Samuel M.", "Jenness",
                     role = c("aut", "cre"),
@@ -22,7 +22,7 @@ Imports:
     Rcpp
 Suggests: 
     testthat,
-    EpiModel (>= 2.0.0)
+    EpiModel (>= 1.8.0)
 LinkingTo: Rcpp, ergm
 LazyData: true
 RoxygenNote: 7.1.1

R/initialize.R

@@ -137,6 +137,7 @@ ergm_prep <- function(nw,
 #' stored under \code{nw} because it is no longer needed.
 #'
 #' @examples
+#' \dontrun{
 #' library("EpiModel")
 #' nw <- network_initialize(100)
 #' formation <- ~edges
@@ -162,6 +163,8 @@ ergm_prep <- function(nw,
 #'
 #' # ... and p (contains all relevant ERGM structural information for simulation)
 #' str(dat$p, max.level = 3)
+#' }
+
 #'
 init_tergmLite <- function(dat) {
 

R/simulate.R

@@ -31,6 +31,7 @@
 #' resimulation.
 #'
 #' @examples
+#' \dontrun{
 #' library("EpiModel")
 #'
 #' # Set seed for reproducibility
@@ -66,6 +67,7 @@
 #' # Specific changes listed under changes list
 #' #    (new edges: to = 1; dissolved edges: to = 0):
 #' attributes(dat$el[[1]])$changes
+#' }
 #'
 simulate_network <- function(p,
                              el,
@@ -252,6 +254,7 @@ ergm_Cprepare <- function(el,
 #' \code{dat} list object, based on the model simulation.
 #'
 #' @examples
+#' \dontrun{
 #' library("EpiModel")
 #'
 #' # Set seed for reproducibility
@@ -281,6 +284,7 @@ ergm_Cprepare <- function(el,
 #'                              el = dat$el[[1]],
 #'                              coef = dat$nwparam[[1]]$coef.form)
 #' dat$el[[1]]
+#' }
 #'
 simulate_ergm <- function(p, el, coef) {
 

R/tergmLite-package.r

@@ -4,8 +4,8 @@
 #' \tabular{ll}{
 #'    Package: \tab tergmLite\cr
 #'    Type: \tab Package\cr
-#'    Version: \tab 2.2.0\cr
-#'    Date: \tab 2020-07-20\cr
+#'    Version: \tab 2.2.1\cr
+#'    Date: \tab 2020-07-22\cr
 #'    License: \tab GPL-3\cr
 #'    LazyLoad: \tab yes\cr
 #' }

R/update.R

@@ -24,6 +24,7 @@
 #' @export
 #'
 #' @examples
+#' \dontrun{
 #' library("EpiModel")
 #' nw <- network_initialize(100)
 #' formation <- ~edges
@@ -47,6 +48,7 @@
 #'
 #' # Check new network size
 #' attributes(dat$el[[1]])$n
+#' }
 #'
 add_vertices <- function(el, nv) {
   attributes(el)$n <- attributes(el)$n + nv
@@ -79,6 +81,7 @@ add_vertices <- function(el, nv) {
 #' @export
 #'
 #' @examples
+#' \dontrun{
 #' library("EpiModel")
 #' set.seed(12345)
 #' nw <- network_initialize(100)
@@ -107,6 +110,7 @@ add_vertices <- function(el, nv) {
 #'
 #' # Newly permuted edges
 #' head(dat$el[[1]], 20)
+#' }
 #'
 delete_vertices <- function(el, vid) {
 

R/updateModelTerms.R

@@ -40,6 +40,7 @@
 #' @importFrom statnet.common NVL
 #'
 #' @examples
+#' \dontrun{
 #' library("EpiModel")
 #'
 #' # Set seed for reproducibility
@@ -77,6 +78,7 @@
 #'
 #' # Check that network list structure for nodefactor term has been updated
 #' dat$p[[1]]$model.form$terms[[2]]
+#' }
 #'
 updateModelTermInputs <- function(dat, network = 1) {
 

R/util.R

@@ -31,6 +31,7 @@
 #' @export
 #'
 #' @examples
+#' \dontrun{
 #' library("EpiModel")
 #' nw <- network_initialize(100)
 #' formation <- ~edges
@@ -49,6 +50,7 @@
 #' # Conversion to networkLite class format
 #' nwl <- networkLite(dat$el[[1]], dat$attr)
 #' nwl
+#' }
 #'
 networkLite <- function(el, attr) {
   x <- list(el = el, attr = attr, gal = attributes(el))