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

我正在使用CRAN上提供的serial - 包（here）。这是为了满足您的需求而开发的。读取和发送数据表格和RS232等连接。我确实推荐这个，因为“mode.exe”似乎不适用于虚拟COM端口。请参阅NPort-Server等。

Answer 2

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

中设置COM4：configuration

系统（“模式COM4：BAUD = 115200 PARITY = N DATA = 8 STOP = 1”）

看模式/？在命令提示符下获取更多参数

使用readChar（）

逐字符地读取数据也可能有所帮助

有时会发生teraterm没有正确关闭RS232连接。

Answer 3

我意识到这是五年前的事，但我发现在你的代码中你没有调用握手。我正在使用类似的东西，我使用 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'
                        )

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

3 个答案: