kkobayashi #1012(2007/07/16 13:29 GMT) [ R ] Rating0/0=0.00
1 2 3 4 5 6 7 8 9 10
watch.file <- function(file){ mtime <- file.info(file)$mtime repeat{ if(mtime != (file.info(file)$mtime)){ mtime <- file.info(file)$mtime print("modified!") } Sys.sleep(1) } }
Rating0/0=0.00-0+
[ reply ]
kkobayashi
#1012()
[
R
]
Rating0/0=0.00
watch.file <- function(file){ mtime <- file.info(file)$mtime repeat{ if(mtime != (file.info(file)$mtime)){ mtime <- file.info(file)$mtime print("modified!") } Sys.sleep(1) } }Rating0/0=0.00-0+
[ reply ]