fix warn message and station assignment in anlz_fibmatrix

tbep-tech · Sep 30, 2024 · aa9bbfe · aa9bbfe
1 parent a92ab8b
commit aa9bbfe
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/anlz_fibmatrix.R b/R/anlz_fibmatrix.R
@@ -189,8 +189,9 @@ anlz_fibmatrix <- function(fibdata, yrrng = NULL, stas = NULL, bay_segment = NUL
   chk <- !stas %in% stasval
 
   # check if some stations valid for lagyr
-  if(sum(chk) > 0 & sum(chk) < length(chk) & is.null(bay_segment) & warn){
-    warning('Stations with insufficient data for lagyr: ', paste(stas[chk], collapse = ', '))
+  if(sum(chk) > 0 & sum(chk) < length(chk) & is.null(bay_segment)){
+    if(warn)
+      warning('Stations with insufficient data for lagyr: ', paste(stas[chk], collapse = ', '))
     stas <- stas[!chk]
   }