#
# bchQuery <- function( driverClss, classPth, usr, psw, outputPath, verbose = FALSE ){
#
# drv <- RJDBC::JDBC(driverClass = driverClss , classPath = classPth )
# conn <- RJDBC::dbConnect(drv, "jdbc:oracle:thin:@localhost:51524:ORCL", usr, psw )
# ObservationData= RJDBC::dbGetQuery(conn,"SELECT * from ASD_GI.A00026337_OBSERVATION_FACT WHERE CONCEPT_CD LIKE 'ICD9:%'")
# demogData=RJDBC::dbGetQuery(conn,"select * from ASD_GI.A00026337_PATIENT_DIM")
# conceptData=RJDBC::dbGetQuery(conn,"select * from ASD_GI.CONCEPT_DIMENSION")
#
# if( verbose == TRUE ){
# message("The concept data.frame contains", nrow(demog ))
# }
#
# # where ROWNUM < 100000"
# return(demog)
# }
#
# #options(java.parameters='-Xmx2g')
# options(java.parameters = "-Xmx8048m")
# # library(RJDBC)
# # bchData <- bchQuery(
# # driverClss = "oracle.jdbc.driver.OracleDriver",
# # classPth = "/Users/niloofar/Documents/db_drivers/ojdbc6.jar",
# # usr = "NJ67",
# # psw = "changeme",
# # outputPath = "/tmp"
# # )
#
#
# ConsAsdGi <- bchQuery(
# driverClss = "oracle.jdbc.driver.OracleDriver",
# classPth = "/Users/niloofar/Documents/db_drivers/ojdbc6.jar",
# usr = "NJ67",
# psw = "changeme",
# outputPath = "/tmp"
# )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.