从套接字打印数据流

Question

我正在尝试连接到提供股票价格 (stockID,price) 馈送的套接字，然后打印它。川流不息。我的问题是无法打印。

首先，我创建一个连接：

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)
}

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

从套接字打印数据流

Printing datastream from socket

modeling

time-series

mean

large-data