问题描述
我正在尝试使用发送一些数据并返回消息的方法来扩展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环境明智”。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)