Stops a Reactor server

stop_reactor(server)

Arguments

server	ReactiveNotebook server

if (FALSE) {
library(ReactorNotebook)
notebook <- ReactorNotebook$new()

server <- start_reactor(notebook)

stop_reactor(server)
}