Code snipped for turning Postgresql stdout of a table into an R data frame

sql_to_R.R

get.sql.out <- function(file, nrows = -1){
    raw <- read.table(file, header=TRUE, nrow = nrows, sep="|", fill=TRUE, strip.white=TRUE)
    num.rows <- dim(raw)[1] 
    raw$index <- 1:num.rows 
    raw <- subset(raw, index != 1 & index != num.rows) 
    raw 
}