Skip to content

Instantly share code, notes, and snippets.

@yutannihilation
Created October 17, 2017 06:46
Show Gist options
  • Select an option

  • Save yutannihilation/89932e0c5b6a1acf200948d98964ad37 to your computer and use it in GitHub Desktop.

Select an option

Save yutannihilation/89932e0c5b6a1acf200948d98964ad37 to your computer and use it in GitHub Desktop.
library(DBI)
observer <- getOption("connectionObserver")
observer$connectionOpened(type = "HOXOM",
displayName = "HOXOM",
host = "",
connectCode = "",
disconnect = function(...) NULL,
listObjectTypes = function(...) list(schema = list()),
listObjects = function(...) list(),
listColumns = function(...) list(),
previewObject = function(...) list(),
connectionObject = new("AnsiConnection"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment