R/zzz.R

In cezden/rpostgrexplorer: Simplification of analysis in PostgreSQL and Redshift DBs

.onLoad <- function(libname, pkgname) {
  assign("pkg_globals", new.env(), envir=parent.env(environment()))
  qlist <- list()
  sql.files <- c("tables_list", "table_attributes_list", "relationship_miner", "objects_list", "attribute_primarykeyability", "dictionary_values")
  for (sqlfile in sql.files){
    sqlfile.name <- paste0(sqlfile,".sql")
    sqlfile.contents <- readLines(system.file("sql", sqlfile.name, package = pkgname))    #read sql file content
    #remove comments
    sqlfile.contents.filtered <- Filter(
      function(x){
        !(stringi::stri_startswith_fixed(stringi::stri_trim_left(x), "--"))
      }
      , sqlfile.contents)
    final.sql <- paste(sqlfile.contents.filtered, collapse = "\n")
    qlist[[sqlfile]] <- final.sql
  }
  assign("QUERY_REPO", qlist, pkg_globals)
}