R/connect2oracle.r

In ivanhanigan/ddiindexdb: manipulate ddiindexdb from R

################################################################
# name:connect2oracle
# make sure you have JDK, if not install the SUN version
#http://blog.i-evaluation.com/2012/12/03/installing-java-sdk-and-jre-bin-files-on-my-ec2-instance/
# then get the JDBC driver from http://www.oracle.com/technetwork/database/enterprise-edition/jdbc-112010-090769.html
# put into /lib
##  did install.packages('rJava') and then
# "R CMD javareconf" as root
connect2oracle <- function(hostip=NA, db=NA, p=NA,
                           driverlocation='/lib/ojdbc6.jar'){
  require(RJDBC)
  drv <- JDBC("oracle.jdbc.driver.OracleDriver",
              driverlocation)
  
  if(is.na(hostip)){
    hostip=readline('enter hostip: ')
  }
  if(is.na(db)){
    db=readline('enter db: ')
  }

  if(is.na(p)){
    pwd=readline(paste('enter password for ',db, ': ',sep=''))
  } else {
    pwd <- p
  }
  
  ch <- dbConnect(drv,paste("jdbc:oracle:thin:@",hostip,":1521",sep=''),db,pwd)
  return(ch)
}