如何从 R 中的串口读取数据

Question

我想从串口绘制实时数据。我认为 R 将是完成这项工作的好工具。我在尝试从串行端口（COM4）读取数据时磕磕绊绊。我已经验证数据是通过 terra term 进入的（并在尝试 R 之前关闭会话），但我似乎无法在 R 中得到任何东西。

我检查了几个地方，包括这些线程： How to invoke script that uses scan() on Windows? How to include interactive input in script to be run from the command line

我还在 R 论坛上找到了这个旧帖子： https://stat.ethz.ch/pipermail/r-help/2005-September/078929.html

这些已经让我走到了这一步，但我似乎无法真正从串行端口将任何数据输入 R。

此时我可以使用 VBA 在 excel 中流式传输数据，但我想在 R 中进行，以便更好地实时绘制和过滤数据。

编辑：感谢到目前为止的帮助。我只是在编写此编辑时让它工作，所以这里是代码：

#
# Reset environment
#
rm(list = ls())         # Remove environemnent variables
graphics.off()          # Close any open graphics

#
# Libraries
#
library(serial)

#
# Script
#

con <- serialConnection(name = "test_con",
                        port = "COM11",
                        mode = "115200,n,8,1",
                        buffering = "none",
                        newline = 1,
                        translation = "cr")

open(con)

stopTime <- Sys.time() + 2
foo <- ""
textSize <- 0
while(Sys.time() < stopTime)
{
    newText <- read.serialConnection(con)
    if(0 < nchar(newText))
    {
        foo <- paste(foo, newText)
    }
}

cat("\r\n", foo, "\r\n")

close(con)

foo 最终成为一个长字符串，其中包含我想要的新行：

3181, -53120, -15296, 2,  
3211, -53088, -15328, 2,  
3241, -53248, -15456, 1,  
3271, -53216, -15424, 2,  
3301, -53184, -15488, 2,  
3331, -53344, -15360, 1,  
3361, -53440, -15264, 1,

再次感谢大家的帮助！

Answer 1

我知道这是五年前的事，但我发现在你的代码中你没有调用握手。 我正在使用类似的东西，我使用 PUTTY 而不是 teraterm，在那里我可以看到我的 COM 设备的以下所有输入。

我的命令如下：

  con <-serialConnection(name="Prolific USB-to-Serial Comm Port(Com3)",
                        port="COM3",
                        mode="9600,n,8,1",
                        newline=0,
                        translation="lf",
                        handshake = 'xonxoff'
                        )

Answer 2

我正在使用 CRAN 上的 serial-package (here)。这是为了完全满足您的需要而开发的。读取和发送数据格式并连接到 RS232 等。 我真的很推荐这个，因为“mode.exe”似乎不适用于虚拟 COM 端口。见 NPort-Server 等。

Answer 3

Teraterm 和 Windows 使用不同的机制来配置串行设备。 与 teraterm 中的配置相比，您的系统连接设置是否正常？ 重新检查 teraterm 中的配置参数，然后使用它们在 R 中设置您的 COM4: 配置。

system("mode COM4: BAUD=115200 PARITY=N DATA=8 STOP=1")

查看模式 /?在您的命令提示符下获取更多参数

使用 readChar() 逐个字符读取数据也可能会有所帮助

teraterm 有时无法正确关闭 RS232 连接。