小编Sør*_*ill的帖子

我有一些数据代表患者（id）的重复（会话A和B）测量（var.x）。我的数据很整洁（即长格式表，每列中有一个变量，每行有一个观察值）......像这样：

| id | var.1 | var.2 | session |
--------------------------------
|  1 |  1.1  |   11  |    A    |
|  1 |  1.9  |   12  |    B    |
|  2 |  1.2  |   15  |    A    |
|  2 |  1.4  |   14  |    B    |

我想对会话 A 和 B 中的配对（按 id）数据（例如 var.1）进行相关分析。换句话说，重复测量之间的相关系数是多少。

如果我将数据转置/旋转/融化/传播为宽格式，如下所示，这并不难做到：

| id | var.1.A | var.2.A | var.1.B | var.2.B |
----------------------------------------------
|  1 |  1.1    |   11    |   1.9   |   12    |
|  2 …

我想从串行端口（USB 端口）读取数据流。

就我而言，它是来自 Arduino 板的数据，但我认为这个问题很普遍。

这在 R 中很容易完成。例如：

library(serial)
conn <- serialConnection("arduino", port="ttyUSB0", mode="9600,n,8,1") # port may be different on other machines and OS's
open(conn)
while(TRUE) { print(read.serialConnection(conn) ) }

这将不断地将数据流吐出为文本（包括许多 NULL）。

我想在 Shiny App 中做类似的事情。尽管在此处对 R/Shiny 和数据流进行了出色的介绍，但我还没有设法使其正常工作：链接。下面有一个最小的非工作示例。

报告的错误是：argument 1 (type 'closure') cannot be processing by 'cat' which has been changed. 是print() 可以处理而renderText() 不能处理的数据类型问题吗？

library(shiny)
library(serial)

conn <- serialConnection("arduino", port="ttyUSB0", mode="9600,n,8,1")
open(conn)

ui <- fluidPage(
  titlePanel("Shiny Data Serial Stream"),
  fluidRow(
    column(4, 
       hr(),
       textOutput('serial'),
       hr()
      ) 
    )
  )

server …