Update get_data_frames.R

Blue-Matter · Sep 6, 2023 · e8de79e · e8de79e
1 parent d1cc53a
commit e8de79e
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/get_data_frames.R b/R/get_data_frames.R
@@ -498,6 +498,7 @@ match_at_age_ts_variable <- function(variable='Spawning Biomass', class='Hist')
 #' @rdname get_ts
 get_ts.Hist <- function(x, variable='Spawning Biomass', model='Model 1', scale=NULL) {
   slot <- match_ts_variable(variable, 'Hist')
+  if (length(slot)==0) stop(variable, ' currently not supported for this object')
   if (grepl('\\()', slot)) {
     fn <- gsub('\\()','', slot)
     value <- get(fn)(x)
@@ -550,6 +551,7 @@ get_ts.MSE <- function(x, variable='Spawning Biomass', model='Model 1', scale=NU
 
   # Projection
   slot <- match_ts_variable(variable, 'MSE')
+  if (length(slot)==0) stop(variable, ' currently not supported for this object')
   if (grepl('\\()', slot)) {
     fn <- gsub('\\()','', slot)
     value <- get(fn)(x)
@@ -614,6 +616,7 @@ get_ts.multiHist <- function(x, variable='Spawning Biomass', model='Model 1', sc
   nsim <- x[[1]][[1]]@Misc$MOM@nsim
 
   slot <- match_ts_variable(variable, 'Hist')
+  if (length(slot)==0) stop(variable, ' currently not supported for this object')
 
   stock_list <- list()
   if (!by_fleet) {