R/func.completeOutputPar.R

Defines functions func.completeOutputPar

func.completeOutputPar <-
function( output, extOut, extOutFile ){
  #change DEFAULT
  if( !is.null(extOutFile) )
    extOut <- TRUE

  if( extOut ){
    if( is.null(extOutFile) )
      output$writeTarget = stdout()
    #redirect output to file
    else{
      output$toFile <- TRUE
      output$writeTarget = file(extOutFile, open = "w")
    }
  }

  return( output )
}

Try the cvq2 package in your browser

Any scripts or data that you put into this service are public.

cvq2 documentation built on May 2, 2019, 8:29 a.m.