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