Creating a client

# set the client
ws <- websocket::WebSocket$new("ws://127.0.0.1:8080/")

ws$onMessage(function(event) {
  cat("Client received message:", event$data, "\n")
})

# Wait for a moment before running next line
ws$send("Hello server!")

# Close client
ws$close()