R/selectReportFile.R

In wStockhausen/rTCSAM2015: A set of tools to set up input for, and interact with output from, a TCSAM2015 model run, as well as to compare TCSAM2015 and rsimTCSAM runs.

#'
#'@title Get a TCSAM2015 model report file
#'
#'@description Allows the user to select a TCSAM2015 model report file using a file dialog.
#'
#'@return path to selected TCSAM2015 model report file, or NULL (if user canceled selection).
#'
#'@export
#'
#'@details Uses functions
#'\itemize{
#'  \item tcltk::tk_choose.files()
#'  \item wtsUtilities addFilter()
#'}
#'
selectReportFile<-function(){
    Filters<-wtsUtilities::addFilter("rep","report files (*.rep)","*.rep",Filters=NULL);
    Filters<-wtsUtilities::addFilter("R","R files (*.R)","*.R",Filters=Filters);
    Filters<-wtsUtilities::addFilter("r*","report files (*.r*)","*.r*",Filters=Filters);
    rfile<-tcltk::tk_choose.files(caption="Select TCSAM2015 R Model Report (.rep or .R) file",
                             multi=FALSE,filters=Filters);
    if (length(rfile)==0) return(NULL);
    return(rfile)
}