R/createMgr.R

In epivizrData: Data Management API for epiviz interactive visualization app

#' Create a data manager for epiviz app
#' 
#' @param server An object of class \code{\link{EpivizServer}}
#' @return An object of class \code{\link{EpivizDataMgr}}
#' @export
#' 
#' @examples
#' server <- epivizrServer::createServer(port=7123L)
#' data_mgr <- epivizrData::createMgr(server)
#'
createMgr <- function(server = server) {
  if (!is(server, "EpivizServer")) {
    stop("'server' must be of class 'EpivizServer', see epivizrServer package")
  }
  EpivizDataMgr$new(server=server)
}