Commit 91b61c3c authored by Chris Holbrook's avatar Chris Holbrook

suppress progress bars in tests

parent e6482418
......@@ -3,7 +3,7 @@ Type: Package
Title: A package for the Great Lakes Acoustic Telemetry Observation System
Description: Functions useful to members of the Great Lakes Acoustic Telemetry Observation System www.glatos.glos.us; many more broadly relevant to simulating, processing, analysing, and visualizing acoustic telemetry data.
Version: 0.4.0
Date: 2019-11-07
Date: 2019-11-12
Depends: R (>= 3.2.0)
Imports:
cellranger,
......
----
# glatos 0.4.0
#### 2019-11-06
#### 2019-11-12
### New features
......
......@@ -4,20 +4,24 @@ context("Check crw_in_polygon")
mypolygon <- data.frame(x = c(-50,-50, 50, 50), y = c(-50,50,50,-50))
set.seed(30)
path_dfin_spout <- crw_in_polygon(mypolygon, theta = c(0, 20), stepLen = 10,
initPos=c(0,0), initHeading=0, nsteps=5)
initPos=c(0,0), initHeading=0, nsteps=5,
show_progress = FALSE)
set.seed(30)
path_dfin_dfout <- crw_in_polygon(mypolygon, theta = c(0, 20), stepLen = 10,
initPos=c(0,0), initHeading=0, nsteps=5, sp_out = FALSE)
initPos=c(0,0), initHeading=0, nsteps=5,
sp_out = FALSE, show_progress = FALSE)
# spatial input
data(greatLakesPoly)
set.seed(30)
path_spin_spout <- crw_in_polygon(greatLakesPoly, theta=c(0,25), stepLen=10000,
initPos = c(-87.49017, 48.42314), initHeading=0, nsteps=5)
initPos = c(-87.49017, 48.42314), initHeading=0, nsteps=5,
show_progress = FALSE)
set.seed(30)
path_spin_dfout <- crw_in_polygon(greatLakesPoly, theta=c(0,25), stepLen=10000,
initPos = c(-87.49017, 48.42314), initHeading=0, nsteps=5, sp_out = FALSE)
initPos = c(-87.49017, 48.42314), initHeading=0, nsteps=5, sp_out = FALSE,
show_progress = FALSE)
......
......@@ -14,12 +14,12 @@ tr_dfin_spout <- transmit_along_path(mypath,vel=0.5,delayRng=c(60,180),
# spatial detection output - 50% constant detection prob
set.seed(33)
dtc_spin_spout <- detect_transmissions(trnsLoc=tr_dfin_spout, recLoc=recs,
detRngFun=function(x) 0.5)
detRngFun=function(x) 0.5, show_progress = FALSE)
# non-spatial detection output - 50% constant detection prob
set.seed(33)
dtc_spin_dfout <- detect_transmissions(trnsLoc=tr_dfin_spout, recLoc=recs,
detRngFun=function(x) 0.5, sp_out = FALSE)
detRngFun=function(x) 0.5, sp_out = FALSE, show_progress = FALSE)
# non-spatial output
......@@ -30,12 +30,12 @@ tr_dfin_dfout <- transmit_along_path(mypath,vel=0.5,delayRng=c(60,180),
# spatial detection output - 50% constant detection prob
set.seed(33)
dtc_dfin_spout <- detect_transmissions(trnsLoc=tr_dfin_dfout, recLoc=recs,
detRngFun=function(x) 0.5)
detRngFun=function(x) 0.5, show_progress = FALSE)
# non-spatial detection output - 50% constant detection prob
set.seed(33)
dtc_dfin_dfout <- detect_transmissions(trnsLoc=tr_dfin_dfout, recLoc=recs,
detRngFun=function(x) 0.5, sp_out = FALSE)
detRngFun=function(x) 0.5, sp_out = FALSE, show_progress = FALSE)
# Expected results
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment