R/dbutil.R

In ckogan/ciserdb:

#' @export
ciserdb <- function(user = readline("User:")) {
  DBI::dbConnect(RMySQL::MySQL(),
                 host = "ec2-18-222-8-242.us-east-2.compute.amazonaws.com",
                 user = user,
                 password = getPass(),
                 dbname = "ciserdb"
  )
}



#' @export
list_tables <- function(con) {
  dbGetQuery(con, "SELECT table_name FROM information_schema.tables where table_schema = 'ciserdb';")
}

#' @export
log_hours <- function() {
  appDir <- system.file("myapp", package = "ciserdb")
  shiny::runApp(appDir, display.mode = "normal")
}