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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.