如何在rstudio / websocket中返回event $ data

如何解决如何在rstudio / websocket中返回event $ data

我正在尝试使用发送一些数据并返回消息的方法来扩展websocket::Websocket，以便可以将其分配给一个对象。我的问题与https://community.rstudio.com/t/capture-streaming-json-over-websocket/16986几乎相同。不幸的是，那里的用户从来没有透露他们自己如何解决它。我的想法是让onMessage方法返回event$data，即：

my_websocket <- R6::R6Class("My websocket",inherit = websocket::WebSocket,public = list(
                               foo = function(x) {
                                 msg <- super$send(paste("x"))
                                 return(msg)
                               }                         )
)
load_websocket <- function(){
  ws <- my_websocket$new("ws://foo.local")
  ws$onMessage(function(event) {
    return(event$data)
  })
  return(ws)
}

my_ws <- load_websocket()
my_ws$foo("hello") # returns NULL

但是在花了一个小时的Websocket源代码之后，我仍然完全不知道回调发生的确切位置，“ R环境明智”。