# NOT RUN {
<!-- %% @test .port Database port number -->
<!-- %% @test .dbname Database name -->
## set up the database connection
## Assume that .port is port number and .dbname is the database name
cid <- db.connect(port = .port, dbname = .dbname, verbose = FALSE)
## create a table from the example data.frame "abalone"
x <- as.db.data.frame(abalone, conn.id = cid, verbose = FALSE)
## preview of a table
lk(x, nrows = 10) # extract 10 rows of data
## do some operations and preview the result
y <- (x[,1:2] + 1.2) * 2
lk(y, 20)
## table abalone has a column named "id"
lk(sort(x, INDICES = x$id), 20) # the preview is ordered by "id" value
## use as.data.frame
as.data.frame(x, 10)
db.disconnect(cid, verbose = FALSE)
# }
Run the code above in your browser using DataLab