Merge pull request #376 from ldecicco-USGS/main

ldecicco-USGS · web-flow · commit af7984b3efbe · 2023-11-20T15:15:10.000-06:00
Fixes #375
diff --git a/R/runSurvReg.R b/R/runSurvReg.R
@@ -47,7 +47,7 @@ runSurvReg <- function(estPtYear, estPtLQ, DecLow, DecHigh, Sample,
   
   localSample <- Sample
   if(any(is.na(localSample$LogQ))){
-    message("Removing Sample data that does not have corresponding flow data")
+    if (verbose) message("Removing Sample data that does not have corresponding flow data")
     localSample <- localSample[!is.na(localSample$LogQ),]
   }
   numSamples <- length(localSample$DecYear)

Original file line number	Diff line number	Diff line change
`@@ -47,7 +47,7 @@ runSurvReg <- function(estPtYear, estPtLQ, DecLow, DecHigh, Sample,`
`47`	`47`
`48`	`48`	`localSample <- Sample`
`49`	`49`	`if(any(is.na(localSample$LogQ))){`
`50`		`- message("Removing Sample data that does not have corresponding flow data")`
	`50`	`+ if (verbose) message("Removing Sample data that does not have corresponding flow data")`
`51`	`51`	`localSample <- localSample[!is.na(localSample$LogQ),]`
`52`	`52`	`}`
`53`	`53`	`numSamples <- length(localSample$DecYear)`