Avoid issues with harvest iters

flr · Oct 11, 2022 · d5cfce1 · d5cfce1
1 parent 85f39b8
commit d5cfce1
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 2 deletions.
diff --git a/R/flxsa.R b/R/flxsa.R
@@ -159,7 +159,8 @@ setGeneric("FLXSA", function(stock, indices, ...)
 
 setMethod("FLXSA", signature(stock="FLStock", indices="FLIndex"),
   function(stock, indices, control=FLXSA.control(), diag.flag=TRUE) {
-    FLXSA(stock=stock, indices=FLIndices(indices), control=control, diag.flag=diag.flag)
+    FLXSA(stock=stock, indices=FLIndices(indices), control=control,
+      diag.flag=diag.flag)
   }
 )
 
@@ -291,7 +292,7 @@ setMethod("FLXSA", signature(stock="FLStock", indices="FLIndices"),
         }
       }
 
-      dimnames(res@harvest)$iter <- dimnames(harvest(stock))$iter
+      dimnames(res@harvest)$iter <- dimnames(stock.n(stock))$iter
       dimnames(res@stock.n)$iter <- dimnames(stock.n(stock))$iter
 
       res@harvest@units <- "f"

diff --git a/R/xsa.sa.R b/R/xsa.sa.R
@@ -19,6 +19,10 @@
 #' @param idx An FLIndices.
 #'
 #' @return A list containing the updated FLStock, and the tracking FLQuant.
+#' @examples
+#' data(ple4)
+#' data(ple4.index)
+#' xsa.sa(stk=ple4, idx=ple4.index, args=list(ay=2018), tracking=FLQuant())
 
 xsa.sa <- function(stk, idx, args, tracking, ...) {
 

diff --git a/man/xsa.sa.Rd b/man/xsa.sa.Rd