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

Posted 2023-02-19

【中文标题】如何从 R 中的串口读取数据

【英文标题】：How to Read Data from Serial Port in R

【发布时间】：2016-04-04 00:22:16

【问题描述】：

我想从串口绘制实时数据。我认为 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,

再次感谢大家的帮助！

【问题讨论】：

我发现了这一点，它暂时有所帮助，但如果能够在 R 中提取数据并更好地控制事物，那就太好了：hackaday.io/project/5334-serialplot/log/…

我编辑了问题以反映我到目前为止的进度。

【参考方案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'
                        )

【参考方案2】：

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

【讨论】：

谢谢。我今天进来时必须检查一下。

抱歉，我一直在忙其他事情。我今天下午试了一下。写作工作得很好，但阅读仍然让我望而却步。我会更新问题。

我在编辑我的问题时得到了它。感谢您的帮助！

【参考方案3】：

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

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

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

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

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

【讨论】：

是的，我在 Terraterm 和命令提示符中检查了所有内容。连接已关闭，或者打开连接时出现错误。该程序运行完成，因此告诉我它打开连接，读取（无），然后成功关闭连接。我会试试 readChar()。

请告诉我们您的进度

我可以让它在 Excel 中与 VBA 一起使用，但 R 让我头疼。我可以写入串行端口，但读取似乎不一致。有时我得到一条完整的线路，有时是部分线路，有时没有。我期望的是 2 秒的行数。我会将我当前的代码发布到问题中。