R/get.fs.time.R

In gelfondjal/IT2: Tracks and manages dependencies for R project

#' Retrun time of file system
#' @description Writes to temporary file and extracts mod time with file.info
#' @return The file system write time
#' @export
get.fs.time <- function(){
  
  #'@description 
    
    # Get the filesystem write time
    tf <- tempfile()
    write(0,tf)
    timeout <- file.info(tf)$mtime
    file.remove(tf)
    return(timeout)
    
}