The R Project SVN R

Rev

Rev 27442 | Rev 42333 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 27442 Rev 40281
Line 42... Line 42...
42 
daytime <- function(host = "localhost"){
 42 
daytime <- function(host = "localhost"){
43 
    a <- make.socket(host, 13)
 43 
    a <- make.socket(host, 13)
44 
    on.exit(close.socket(a))
 44 
    on.exit(close.socket(a))
45 
    read.socket(a)
 45 
    read.socket(a)
46 
}
 46 
}
47 
## Offical time (UTC) from US Naval Observatory
 47 
## Official time (UTC) from US Naval Observatory
48 
\dontrun{daytime("tick.usno.navy.mil")}
 48 
\dontrun{daytime("tick.usno.navy.mil")}
49 
}
 49 
}
50 
\keyword{misc}
 50 
\keyword{misc}