R/ConnectionViewer.R

Defines functions RStudioConnectionOpened

RStudioConnectionOpened <- function(endpoint, token) {
  observer <- getOption("connectionObserver")
  if (!is.null(observer)) {
    observer$connectionOpened(type = "DataRobot",
                              displayName = "DataRobot",
                              icon = file.path(system.file(file.path("icons"),
                                               package = "datarobot"), "datarobot.png"),
                              host = endpoint,
                              listObjectTypes = function() { list(table = NULL) },
                              connectCode = "datarobot::ConnectToDataRobot",
                              disconnect = function() { NULL },
                              listObjects = datarobot::ListProjects,
                              listColumns = datarobot::ListProjects,
                              previewObject = datarobot::ListProjects,
                              connectionObject = NULL)
  }
}

Try the datarobot package in your browser

Any scripts or data that you put into this service are public.

datarobot documentation built on June 2, 2021, 9:06 a.m.