R Under development (unstable) (2024-07-01 r86857 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> #  part of the Statnet suite
> #  of packages for network analysis, http://statnet.org .
> #
> #  This software is distributed under the GPL-3 license.  It is free,
> #  open source, and has the attribution requirements (GPL Section 7) at
> #  http://statnet.org/attribution
> #
> #  Copyright 2012-2013 Statnet Commons
> #######################################################################
> 
> require(ndtv)
Loading required package: ndtv
Loading required package: network

'network' 1.18.2 (2023-12-04), part of the Statnet Project
* 'news(package="network")' for changes since last version
* 'citation("network")' for citation information
* 'https://statnet.org' for help, support, and other information

Loading required package: networkDynamic

'networkDynamic' 0.11.4 (2023-12-10?), part of the Statnet Project
* 'news(package="networkDynamic")' for changes since last version
* 'citation("networkDynamic")' for citation information
* 'https://statnet.org' for help, support, and other information

Loading required package: animation
Loading required package: sna
Loading required package: statnet.common

Attaching package: 'statnet.common'

The following objects are masked from 'package:base':

    attr, order

sna: Tools for Social Network Analysis
Version 2.7-2 created on 2023-12-05.
copyright (c) 2005, Carter T. Butts, University of California-Irvine
 For citation information, type citation("sna").
 Type help(package="sna") to get started.


'ndtv' 0.13.4 (2023-06-30), part of the Statnet Project
* 'news(package="ndtv")' for changes since last version
* 'citation("ndtv")' for citation information
* 'https://statnet.org' for help, support, and other information

> require(testthat)
Loading required package: testthat
> 
> # ------- tests for filmstrip funciton -----
> data(stergm.sim.1)
> 
> #try a default
> filmstrip(stergm.sim.1)
No coordinate information found in network, running compute.animation
> 
> # check that par was reset back to original
> expect_equal(par()$mfcol,c(1,1))
> 
> # try setting mfcol and exporting a wide version to a pdf
> pdf('filmstripTest.pdf',width=7,height=2)
> filmstrip(stergm.sim.1,frames=5,mfrow=c(1,5),displaylabels=FALSE)
No coordinate information found in network, running compute.animation
> dev.off()
pdf 
  2 
> 
> 
> # try pre-computed coords
> 
> data(stergm.sim.1)
> compute.animation(stergm.sim.1,slice.par=list(start=5,end=15,interval=1, aggregate.dur=1,rule='latest'))
Calculating layout for network slice from time  5 to 6
Calculating layout for network slice from time  6 to 7
Calculating layout for network slice from time  7 to 8
Calculating layout for network slice from time  8 to 9
Calculating layout for network slice from time  9 to 10
Calculating layout for network slice from time  10 to 11
Calculating layout for network slice from time  11 to 12
Calculating layout for network slice from time  12 to 13
Calculating layout for network slice from time  13 to 14
Calculating layout for network slice from time  14 to 15
Calculating layout for network slice from time  15 to 16
> filmstrip(stergm.sim.1,frames=4)
> 
> # try overriding pre-computed
> compute.animation(stergm.sim.1,slice.par=list(start=5,end=15,interval=5, aggregate.dur=1,rule='latest'))
Calculating layout for network slice from time  5 to 6
Calculating layout for network slice from time  10 to 11
Calculating layout for network slice from time  15 to 16
> 
> proc.time()
   user  system elapsed 
   3.00    0.31    3.29