## Not run:
# dat <- data.frame(
# x=1:10,
# y=letters[1:10],
# z=LETTERS[1:10]
# )
#
# tempfile <- tempfile()
#
# write.table(dat,
# file=tempfile,
# row.names=FALSE,
# col.names=FALSE,
# quote=FALSE
# )
#
# x <- awk("print $1", tempfile)
# ## note that it is read in as type 'character'
# print( cbind( x, dat$x ) )
# ## End(Not run)
Run the code above in your browser using DataLab