套接字在R中不稳定

Question

我试图让两个R程序通过套接字进行通信。 这是代码：

计划A

con <- tryCatch(socketConnection(port=10170),error=function(e) return(FALSE))
repeat
{
  x <- tryCatch(unserialize(con),error=function(e) return(NULL))
  if(!is.null(x))
  {
    print(x)
    break
  }
  Sys.sleep(.01)
}

计划B

con <- tryCatch(socketConnection(port=10170,server=T),error=function(e) return(FALSE))
Sys.sleep(3)
serialize("account and trader disconnected",con)
close(con)

这是问题所在。当程序B写入时，程序A似乎有可能读取套接字，所以A只是获取字符串的一部分。结果如下：

  

accou \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF \ XFF   

有人有想法吗？非常感谢！