add documentation for functions to make outputs into an easy txt table #54 #57

Author: mcsiple

NAMESPACE

@@ -6,6 +6,7 @@ export(add_trans)
 export(calc_z)
 export(ce)
 export(dynamics)
+export(extract_df)
 export(find_msyr)
 export(get_diff)
 export(get_dz)
@@ -28,6 +29,7 @@ export(prob_rebuilt_goal)
 export(projections)
 export(rebuild_by_x)
 export(run_app)
+export(traj_list_to_df)
 import(shiny)
 importFrom(config,get)
 importFrom(dplyr,bind_rows)

R/28_traj_list_to_df.R

@@ -69,8 +69,8 @@
 #'   low.list.const,
 #'   zero.list.const
 #' )
+#' 
 traj_list_to_df <- function(x){
-  # x is a full list of trajectories, a nested list with depletion level nested in bycatch
   z <- list()
   for(i in 1:length(x)){
   y <- lapply(x[[i]], FUN = extract_df)