R システムでソケット通信

1. サーバの起動

   serv10003 <- function(){
       a <- make.socket("localhost", 10003, server=TRUE)
       on.exit(close.socket(a))
       read.socket(a)
   }
   serv10003()
   

   
2. 端末を開き，サーバに１行分のデータを送る

   nc 127.0.0.1
   hello
   

   
3. データが送られてきたことが分かる