在 R 中使用自定义 procfun 和 svSocketServer

Question

我正在尝试在 R 中设置服务器，该服务器读取 JSON （字符串）消息，对其进行处理并返回 JSON 字符串消息。
我在使用标准socketConnection时遇到了很多困难，所以我想我会尝试svSocket package。

如果我正确阅读了文档，那么我应该能够使用自定义procfun参数使用startSocketServer来做到这一点。

这是我在服务器端的代码

library(svSocket)

processTestSocket <-
function (msg, socket, serverport, ...) 
{
    cat("Message was:",msg,"\n")
    output <- paste0("message:",msg)
    return(output)
}

options(debug.Socket=TRUE)
startSocketServer(port=12525,server.name="EAServer",
                  procfun=processTestSocket)

我正在使用nc作为测试客户端。

$ sudo ss -tlunp |fgrep 12525
tcp   LISTEN 0      4096         0.0.0.0:12525      0.0.0.0:*    users:(("R",pid=70992,fd=6))                                                            
tcp   LISTEN 0      4096            [::]:12525         [::]:*    users:(("R",pid=70992,fd=7))                                                            
$ nc localhost 12525
Hello
$ sudo ss -tlunp |fgrep 12525
tcp   LISTEN 0      4096         0.0.0.0:12525      0.0.0.0:*    users:(("R",pid=70992,fd=6))                                                            
tcp   LISTEN 0      4096            [::]:12525         [::]:*    users:(("R",pid=70992,fd=7)) 

端口已打开并正在侦听。 但是， nc在我点击返回后立即返回，并且 R 控制台上没有 output （即使我已经设置了调试选项）。

为什么我的procfun不起作用？

我在 Pop_OS 20.4 上运行 R 4.1.2。