The ResultMatrixTable starting on line 812 of the wrapper have some hard coded columns in there. Can you check and make sure that these are referencing the right columns, and change these to an automated format?
ResultMetricsBaselineTable[c,2:13]<-FinalYear[FinalYear$Policy=="CatchShare",13:24]
ResultMetricsSQFinalTable[c,2:4]<-FinalYear[FinalYear$Policy=="CatchShare",28:30]
ResultMetricsSQFinalTable[c,5:7]<-FinalYear[FinalYear$Policy=="CatchShare",25:27]
ResultMetricsSQFinalTable[c,8:10]<-FinalYear[FinalYear$Policy=="CatchShare",34:36]
ResultMetricsSQFinalTable[c,11:13]<-FinalYear[FinalYear$Policy=="CatchShare",31:33]
ResultMetricsSQCumFinalTable[c,2:14]<-Cumulatives[Cumulatives$Policy=="CatchShare",2:dim(Cumulatives)[2]]