added try catch for model design list function

Author: Paul-Carvalho

R/fishset_design.R

@@ -111,8 +111,11 @@ fishset_design <- function(formula,
 
   # Setup and validate data -----------------------------------------------------------------------
   # Check if design file exists
-  
-  # TODO: ADD TRY CATCH!!!!!!!!!!!
+  design_names <- tryCatch({
+    model_design_list(project)
+  }, error = function(cond) {
+    list()
+  })
 
   design_names <- model_design_list(project)
   if (model_name %in% design_names) {