server <- createServer()
server$register_action("getData", function(request_data) {
list(x=1,y=3)
})
server$start_server()
server$send_request(list(x=2,y=5), function(response_data) {
cat(response_data$x)
})
server$stop_server()
Run the code above in your browser using DataLab