hive_test

devtools::install_github("rstats-db/odbc", ref = "transactions", force = TRUE)

library(odbc)
odbcHiveCon <- dbConnect(odbc(),
                 Driver = "Hive Driver",
                 host = "ec2-52-35-222-37.us-west-2.compute.amazonaws.com",
                 Schema = "default",
                 UID  = "rstudio",
                 PWD = "rstudio",
                 port = 10000)



dbListTables(odbcHiveCon)
dbGetQuery(odbcHiveCon, "Select * from customers limit 10")

dbWriteTable(odbcHiveCon, "mtcars_hive", mtcars, overwrite = TRUE)
dbReadTable(odbcHiveCon, "mtcars_hive")

dbRemoveTable(odbcHiveCon, "mtcars_hive")
dbListTables(odbcHiveCon)

dbDisconnect(odbcHiveCon)