Commit dccad88f authored by Asquith, William H.'s avatar Asquith, William H.

bug fix on buffering control on the ylim of the plotting. Previously the use...

bug fix on buffering control on the ylim of the plotting. Previously the use of range(lev) + c(a,b) limits would fail if the lev were all NA
parent ef84804c
......@@ -107,7 +107,8 @@ for(i in 1:num.sites) { # MASTER LOOP START: Mloop
}
if(TOGGLE.restrict.ylim.to.lev) {
yf <- ifelse(length(lev) <= 2, 3, 1)
ylim <- c(-ylim.dn.buffer*yf,ylim.up.buffer*yf) + range(lev)
ylim <- c(-ylim.dn.buffer*yf,ylim.up.buffer*yf)
ylim <- range(c(ylim,range(lev)), na.rm=TRUE)
if(TOGGLE.force.ylim.to.alt) ylim <- range(c(ylim,alt,refalt), na.rm=TRUE)
if(TOGGLE.show.aquifer.bottom) ylim <- range(c(ylim,aqfrBttm), na.rm=TRUE)
if(TOGGLE.show.aquifer.top ) ylim <- range(c(ylim,aqfrTop), na.rm=TRUE)
......
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