set plot to not limit fbar is fcrash is undefined

flr · Dec 6, 2023 · a76a06a · a76a06a
1 parent 437ff35
commit a76a06a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plots.R b/R/plots.R
@@ -57,7 +57,7 @@ setMethod("plot", signature("FLBRP", "missing"),
     rpf <- !all(is.na(rps))
 
     # SUBSET df IF rpf
-    if(rpf && "crash" %in% dimnames(rps)$refpt)
+    if(rpf && "crash" %in% dimnames(rps)$refpt && !is.na(c(rps['crash', 'harvest'])))
       df <- df[df$harvest <= c(rps['crash', 'harvest']),]
 
     # NO economics