R/findUpdated.R

In NMsim: Seamless 'Nonmem' Simulation Platform

##' Filter control streams to only those updated since last run
##' @param mods list of (input or output) control streams to consider
##' @return character vector of paths found models
##' @keywords internal


findUpdated <- function(mods){
    times.res <- sapply(mods,function(mod){
        file.lst <- fnExtension(mod,".lst")
        try(checkTimes(file.lst,use.input=TRUE,file.mod=mod)$time.ok)
    })
    
    times.res
    
    mods.updated <- mods[times.res!="All OK"]
    mods.updated
}