R/simulationHandle.R

In willmorrison1/daRt: Read DART Model Outputs

simulationHandle <- function(x) {

   simHandleObj <- new("SimulationHandle",
        baseDir = x,
        isSequence = isSequence(x),
        sequenceInfo = sequenceInfo(x),
        softwareVersion = versionInfo(x))
   validObject(simHandleObj)

   return(simHandleObj)

}