R/import.PacFIN.sql.R

In John-R-Wallace/JRWToolBox: What the package does (short line)

import.PacFIN.sql <- function (SQL, VAR = "", VAL = "", File = F, dsn = "PacFIN", 
    uid = "wallacej", pwd = PacFIN.PW, View.Parsed.Only = F) 
{
 ''   
 "  # import.PacFIN.sql('Select * from pacfin.bds_sp where rownum < 11', File = F, pwd = PacFIN.PW)  "
 ''   
    require(RODBC)
    require(Hmisc)
    if (File) {
        SQL.Parsed <- sedit(paste(scan(SQL, what = " ", quote = NULL, 
            quiet = T), collapse = " "), VAR, VAL)
        if (View.Parsed.Only) {
            print(SQL.Parsed)
            return(invisible())
        }
    }
    else SQL.Parsed <- sedit(SQL, VAR, VAL)
    SQL.Parsed <- sedit(SQL, VAR, VAL)
    CON <- odbcConnect(dsn, uid = uid, pwd = pwd)
    on.exit(odbcClose(CON))
    sqlQuery(CON, query = SQL.Parsed)
}