It looks like you're new here. If you want to get involved, click one of these buttons!
header_socket <- list(api_key=connection_object@api_key, access_token=connection_object@access_token)
ws <- WebSocket$new("wss://ws.kite.trade",headers = header_socket)