### R code from vignette source 'rdataviewer.Rnw'

###################################################
### code chunk number 1: rdataviewer.Rnw:68-69
###################################################
options(prompt="R> ", continue="R+ ")


###################################################
### code chunk number 2: rdataviewer.Rnw:105-106
###################################################
options(width=60)


###################################################
### code chunk number 3: rdataviewer.Rnw:109-110
###################################################
letters


###################################################
### code chunk number 4: rdataviewer.Rnw:117-118
###################################################
head(VADeaths)


###################################################
### code chunk number 5: rdataviewer.Rnw:127-128
###################################################
head(mtcars)


###################################################
### code chunk number 6: rdataviewer.Rnw:162-168 (eval = FALSE)
###################################################
## library("rdataviewer")
## x <- letters
## data <- viewerData(x)
## tcltkViewer(simpleViewer(data, dev=viewerDeviceVp(data)))
## data <- viewerDataFrame(mtcars)
## tcltkViewer(simpleViewer(data, dev=viewerDeviceVp(data)))


###################################################
### code chunk number 7: rdataviewer.Rnw:204-205
###################################################
head(ChickWeight)


###################################################
### code chunk number 8: rdataviewer.Rnw:218-219
###################################################
ChickWeight[115:120, ]


###################################################
### code chunk number 9: rdataviewer.Rnw:257-261 (eval = FALSE)
###################################################
## x11(width=4, height=4)
## planets <- read.csv("exoplanets.csv")
## data <- viewerDataFrame(planets)
## tcltkViewer(simpleViewer(data, dev=viewerDeviceVp(data)))


###################################################
### code chunk number 10: rdataviewer.Rnw:292-293
###################################################
library("rdataviewer")


###################################################
### code chunk number 11: rdataviewer.Rnw:296-297
###################################################
view(mtcars)


###################################################
### code chunk number 12: rdataviewer.Rnw:396-397
###################################################
view(viewerDataFrame(mtcars))


###################################################
### code chunk number 13: viewmetrix (eval = FALSE)
###################################################
## view(viewerDataText("/scratch/Metrix/BlindData/MEENDL30102008_001-blind.XML",
##                     index=TRUE))


###################################################
### code chunk number 14: rdataviewer.Rnw:474-477 (eval = FALSE)
###################################################
## # For manual testing
## x11(width=4, height=4)
## view(viewerDataText("/scratch/Metrix/BlindData/MEENDL30102008_001-blind.XML"))