1. 连接数据

install.packages("RJDBC")
library(RJDBC)
ojdbcUrl <- "C:/Users/Administrator/Desktop/modelengine/ojdbc6_g.jar"
drv <- JDBC("oracle.jdbc.driver.OracleDriver", ojdbcUrl, identifier.quote = "`")    
conn <- dbConnect(drv,"jdbc:oracle:thin:@10.60.45.44:1521:SID","sys as sysdba","password") 

2.操作数据库

dbSendUpdate(conn,"create table users( id number,name varchar2(100) )");
dbRemoveTable(conn,"users")
dbSendUpdate(conn,"insert into users values(1,'张三')");
dbSendUpdate(conn,"update users set name='李四' where id=1")
b <- dbGetQuery(conn,"select * from users ");

3.关闭连接

dbDisconnect(conn)