example on readme not working

[sje30]

ws <- WebSocket$new("ws://echo.websocket.org/", autoConnect = FALSE)
> ws$connect()
> [2024-03-24 13:43:05] [error] Server handshake response error: websocketpp.processor:20 (Invalid HTTP status.)
[2024-03-24 13:43:05] [error] handle_read_frame error: websocketpp.transport:7 (End of File)
Client disconnected with code 1006 and reason 

whereas this seems to work:

ws <- WebSocket$new("wss://echo.websocket.org/", autoConnect = FALSE)