R/func_SetupProgressBar.R

In catarinawor/ERAR: This package is a loose translation of the Chinook Technical committee ERA model

#=======================================================
#ERA function SetupProgressBar()
#Translated from VB ERA CIS code
#October 2018
#Author: Catarina Wor
#=======================================================

#i think thos function relates to the progress bar on the user interface. 
#I am not sure, need to check with Mark or anyone else that might be willing talk about this. 

#=======================================================





#' @title SetupProgressBar
#'
#' @description  Most.Useless.Thing.Ever =)
#' 
#' 
#'
#' @param M A list passed to MainSub
#'
#' @details
#'
#' @return D: A list 
#' 
#' 
#' 
#' @export
#'
#' @examples
#' 
#' 
SetupProgressBar <- function(){


	 #setup progress bar

	print("Running Cohort Analysis")
	print("this function is pointless in R")

      #ERALabel.Text = "Running Cohort Analysis..."
      #  ProgressBar1.Style = ProgressBarStyle.Blocks
      #  ProgressBar1.Value = 0
      #  ProgressBar1.Maximum = NumberPSCFisheries * 2.5
      #  ProgressBar1.Step = 1
      #  ERALabel.Visible = True
      #  ProgressBar1.Visible = True
      #  Me.Visible = True
      #  Me.Refresh()

}