Starts a Reactor server

start_reactor(notebook)

Arguments

notebook	ReactorNotebook to view in the web-based notebook editor

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

server <- start_reactor(notebook)

stop_reactor(server)
}