server <- slServer(
port = 50051,
interface = list(long_and_complicated = function(x) {
# First part of work that takes some time
# ...
sendInfoText("We are about half way through")
# Second part of work that takes some time
# ...
})
)
# ...
slStop(server)
Run the code above in your browser using DataLab