## Not run:
# mgr <- list(getData=function(measurements, chr, start, end) {
# return(chr)
# },
# verbose=TRUE)
#
# server <- epivizr:::EpivizServer$new(port=7123L)
# server$bindManager(mgr)
# server$startServer()
#
# browseURL("http://localhost:7123/")
# tryCatch(server$service(), interrupt=function(int) invisible())
# ## End(Not run)
Run the code above in your browser using DataLab