library(ROracle)
## Loading required package: DBI
## Warning: package 'DBI' was built under R version 3.2.3
drv <- dbDriver("Oracle")
connect.string <- paste(
"(DESCRIPTION=",
"(ADDRESS=(PROTOCOL=tcp)(HOST=", host, ")(PORT=", port, "))",
"(CONNECT_DATA=(SID=", sid, ")))", sep = "")
## Use username/password authentication.
con <- dbConnect(drv, username = dbuser, password = dbpass,
dbname = connect.string)
## Run a SQL statement by creating first a resultSet object.
rs <- dbSendQuery(con, "select 10+2 from Dual")
## We now fetch records from the resultSet into a data.frame.
data <- fetch(rs) ## extract all rows
dim(data)
## [1] 1 1
data
## 10+2
## 1 12
dbDisconnect(con)
## [1] TRUE