Fix for objects with no discards data in 1 area (pandalus, MC)

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ss3om
 Title: Tools for Conditioning Fisheries Operating Models Using Stock Synthesis 3
-Version: 0.5.2.9002
+Version: 0.5.2.9005
 Authors@R: person("Iago", "Mosqueira", email = "[email protected]",
   role = c("aut", "cre"))
 Description: Tools for loading Stock Synthesis (SS3) models into FLR. Used in

R/build330.R

@@ -108,7 +108,7 @@ buildFLSss330 <- function(out, morphs=out$morph_indexing$Index, name=out$Control
   discards.wt <- catch.wt
 
   if(!is.na(out["discard"])) {
-
+    
     # EXTRACT datage
     datage <- data.table(out$discard_at_age)
     setkey(datage, "Area", "Fleet", "Yr", "Seas", "Era", "Type")
@@ -149,6 +149,16 @@ buildFLSss330 <- function(out, morphs=out$morph_indexing$Index, name=out$Control
       idx <- is.na(discards.wt) | discards.wt == 0
       if(any(idx))
         discards.wt[idx] <- c(mdiscards.wt)[c(idx)]
+
+      # EXPAND discards FLQuants for areas / seasons with no data
+      discards.n <- expand(discards.n, area=dimnames(catch.n)$area,
+        season=dimnames(catch.n)$season)
+
+      # EXPAND discards FLQuants for areas / seasons with no data
+      discards.n <- expand(discards.n, area=dimnames(catch.n)$area,
+        season=dimnames(catch.n)$season)
+      discards.wt <- expand(discards.wt, area=dimnames(catch.n)$area,
+        season=dimnames(catch.n)$season)
     }
   }