R/systime.R

In miceadds: Some Additional Multiple Imputation Functions, Especially for 'mice'

## File Name: systime.R
## File Version: 0.127


#-- several variants for getting system time
systime <- function()
{
    s1 <- paste(Sys.time())
    s1 <- substring(s1,1,19)
    res <- c( s1, substring( s1, 1,10) )
    res <- c(res, gsub('-','',res[2] ) )
    s1a <- substring( s1, 1, 16 )
    s1a <- gsub( ':', '', gsub( ' ', '_', s1a ) )
    res <- c(res, s1a )
    res <- c(res, paste0( substring( s1a, 1,13), '00'  ) )
    t1 <- gsub(':', '', gsub( ' ', '_', gsub( '-', '', res[1] ) ) )
    res <- c( res, t1 )
    t1 <- gsub( '_', '', res[ length(res) ] )
    res <- c( res, t1 )
    res <- c( res, paste0( Sys.info()['nodename'], '_', res[ length(res) ] ) )
    #--- output
    return(res)
}


.attach.environment <- function( res, envir )
{
    CC <- length(res)
    for (cc in 1L:CC){
        assign( names(res)[cc], res[[cc]], envir=envir )
    }
}