[每日一答] [20151027] R语言中的套接字socketConnection

最近在研究R语言的并行计算，不可避免的，就接触到了R语言中的套接字。R语言中的套接字是由socketConnection函数实现的，具体关于TCP/IP协议的内容这里就不再累述，直接上案例代码：

server:

#服务器的链接通过server=TRUE参数确定

con1 <- socketConnection(port=8888, server=TRUE);

repeat {

#服务器端源源不断地向客户端输送一个数据框

write.table(x=data.frame(v=1:10), file=con1, col.names=FALSE);

}

#如果服务中断了，关闭链接

close(con1);

client:

#客户端通过server=FALSE(默认)来确定

t=0

con2 <- socketConnection(host='192.168.180.216', port=8888, blocking=TRUE);

repeat {

t=t+1;

cat("t",t,"\n")

#客户端源源不断地从服务器端读取服务器端发过来的东东

A=read.table(file=con2, nrows=10);

#输出服务器端的东西

print(A);

}

#关闭链接

close(con2);

最近在研究R语言的并行计算，不可避免的，就接触到了R语言中的套接字。R语言中的套接字是由socketConnection函数实现的，具体关于TCP/IP协议的内容这里就不再累述，直接上案例代码：

server:

#服务器的链接通过server=TRUE参数确定

con1 <- socketConnection(port=8888, server=TRUE);

repeat {

#服务器端源源不断地向客户端输送一个数据框

write.table(x=data.frame(v=1:10), file=con1, col.names=FALSE);

}

#如果服务中断了，关闭链接

close(con1);

client:

#客户端通过server=FALSE(默认)来确定

t=0

con2 <- socketConnection(host='192.168.180.216', port=8888, blocking=TRUE);

repeat {

t=t+1;

cat("t",t,"\n")

#客户端源源不断地从服务器端读取服务器端发过来的东东

A=read.table(file=con2, nrows=10);

#输出服务器端的东西

print(A);

}

#关闭链接

close(con2);