从套接字

Question

我正在尝试连接到提供股票价格（stockID，价格）的套接字，然后将其打印出来。溪流无穷无尽。我的问题是我无法打印出来。

首先，我创建了一个连接：

con <- socketConnection(host = "88.99.38.191", port = 1337, open = "r")

然后我设置一个读取所有行的变量。 data <- readLines(con,-1)

然后print(data)

问题在于，根据执行连接和设置变量数据之间的时间间隔，后者会收到不同数量的值，就是这样。

我试图以某种方式打印整个流。如果我使用 while (TRUE) { print(data) }

它只是在循环中无休止地打印data。

知道如何实现吗？

我的最终目标是计算每个ID的移动平均值。

Answer 1

对于那些感兴趣的人，这就是答案。

con <- socketConnection(host = "88.99.38.191", port = 1337, open ="r",blocking = T,server=FALSE)

while(TRUE) {   
data <- readLines(con,1)
print(data)
}

我最初的方法存在的问题是我没有将blocking = T属性用于socketConnection。更多信息可以在here找到。