如何在rstudio/websocket中返回事件$data

install.packages("websocket")
library(websocket)

ws <- ws_connect("ws://example.com")  # 替换为实际的WebSocket服务器地址
on_message(ws, function(ws, message) {
  # 处理接收到的消息
})

on_message(ws, function(ws, message) {
  message_obj <- jsonlite::fromJSON(message)
  data <- message_obj$data
  # 对data进行处理或使用
})

on_message(ws, function(ws, message) {
  message_obj <- jsonlite::fromJSON(message)
  data <- message_obj$data
  
  # 处理data或进行其他操作
  
  response <- list(result = "success", data = processed_data)
  response_json <- jsonlite::toJSON(response)
  ws_send(ws, response_json)
})