Only run examples in interactive session

hadley · hadley · commit c888fa9527cd · 2018-07-06T09:19:11.000-05:00
diff --git a/man/close-GGobi-kz.rd b/man/close-GGobi-kz.rd
@@ -18,8 +18,10 @@ variable panel window associated with this ggobi instance.
 It also resets the default ggobi instance to be the last
 one created.}
 
-\examples{g1 <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g1 <- ggobi(mtcars)
 g2 <- ggobi(mtcars)
 close(g2)
-close(ggobi_get())}
+close(ggobi_get())}}
 \keyword{dynamic}
diff --git a/man/close-GGobiDisplay-ke.rd b/man/close-GGobiDisplay-ke.rd
@@ -14,8 +14,10 @@ Closes the referenced display.  The R variable will be invalid after this call.
 
 
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 displays(g)
 close(displays(g)[[1]])
-displays(g)}
+displays(g)}}
 \keyword{internal}
diff --git a/man/colorscheme--b2.rd b/man/colorscheme--b2.rd
@@ -14,7 +14,9 @@ Specify the active color scheme in a GGobi instance or the  session options.
 \value{The name of the previously active color scheme.}
 \details{This makes a particular color scheme active within a GGobi instance.}
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 colorscheme(g) <- "Set1 8"
-colorscheme(g) <- 1}
+colorscheme(g) <- 1}}
 \keyword{color}
diff --git a/man/colorscheme-6n.rd b/man/colorscheme-6n.rd
@@ -13,6 +13,9 @@ Get name of the active colour scheme
 
 
 
-\examples{g <- ggobi(mtcars)
-colorscheme(g)}
+\examples{
+if (interactive()) {
+
+g <- ggobi(mtcars)
+colorscheme(g)}}
 \keyword{color}
diff --git a/man/dataset-GGobiDisplay-gk.rd b/man/dataset-GGobiDisplay-gk.rd
@@ -14,7 +14,9 @@ Returns a link to the GGobiData (dataset) object associated with this display.
 
 \details{See \code{\link{[.GGobi}} for more information on}
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 d <- displays(g)[[1]]
-dataset(d)}
+dataset(d)}}
 \keyword{manip}
diff --git a/man/dim-GGobiData-ok.rd b/man/dim-GGobiData-ok.rd
@@ -13,7 +13,9 @@ Retrieve the dimension of a GGobiData
 
 
 
-\examples{g <- ggobi(mtcars)
-dim(g[1])}
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
+dim(g[1])}}
 \keyword{attribute}
 \keyword{internal}
diff --git a/man/display-GGobiData-vz.rd b/man/display-GGobiData-vz.rd
@@ -28,14 +28,18 @@ new scatterplot display, change the projection mode to what you want,
 and then set the variables.  Hopefully this will be improved in a future
 version of rggobi.}
 \seealso{\code{\link{ggobi_display_types}} for a list of display types}
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 display(g[1])
 display(g[1], vars=list(X=4, Y=5))
 display(g[1], vars=list(X="drat", Y="hp"))
 display(g[1], "Parallel Coordinates Display")
+}
 \dontrun{
 display(g[1], "2D Tour")
 display(g[1], "2x1D Tour", list(X=c(1,2,3), Y=c(4,5,6)))
-} 
 display(g[1], "Scatterplot Matrix")}
+} 
+
 \keyword{dynamic}
diff --git a/man/displays-GGobi-n2.rd b/man/displays-GGobi-n2.rd
@@ -21,8 +21,10 @@ numbered in the order they are created) so you can change
 display mode, set variables (\code{\link{variables<-.GGobiDisplay}}),
 or save a static image to disk.}
 \seealso{\code{\link{display}} to create displays}
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 displays(g)
 display(g[1])
-displays(g)}
+displays(g)}}
 \keyword{dynamic}
diff --git a/man/edges---GGobiData-qe.rd b/man/edges---GGobiData-qe.rd
@@ -22,7 +22,9 @@ specified by the edge dataset.
 
 To remove edges, set edges to NULL.}
 \seealso{\code{\link{ggobi_longitudinal}} for creating edges which simulate time series plots}
-\examples{cc<-cor(t(swiss),use="p", method="s") 
+\examples{
+if (interactive()) {
+cc<-cor(t(swiss),use="p", method="s") 
 ccd<-sqrt(2*(1-cc)) 
 a <- which(lower.tri(ccd), arr.ind=TRUE)
 src <- row.names(swiss)[a[,2]]
@@ -32,5 +34,5 @@ gg <- ggobi(swiss)
 gg$cor <- data.frame(weight)
 edges(gg$cor) <- cbind(src, dest)
 edges(gg$cor)
-edges(gg$cor) <- NULL}
+edges(gg$cor) <- NULL}}
 \keyword{manip}
diff --git a/man/get--GGobi-7p.rd b/man/get--GGobi-7p.rd
@@ -21,10 +21,12 @@ dataset as if it were a regular R dataset.  This function allows one to
 get an \code{GGobiData} object that represents a particular
 dataset.}
 
-\examples{g <- ggobi(ChickWeight)
+\examples{
+if (interactive()) {
+g <- ggobi(ChickWeight)
 g["cars"] <- mtcars
 g[1:2]
 g["ChickWeight"]
 g["cars"]
-g$cars}
+g$cars}}
 \keyword{manip}
diff --git a/man/get--GGobiData-9v.rd b/man/get--GGobiData-9v.rd
@@ -22,9 +22,12 @@ data.frame.  One can extract and assign elements within the dataset.
 This method works by retrieving the entire dataset into
 R, and then subsetting with R.}
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+
+g <- ggobi(mtcars)
 x <- g$mtcars
 x[1:5, 1:5]
 x[[1]]
-x$cyl}
+x$cyl}}
 \keyword{manip}
diff --git a/man/ggobi-count-u4.rd b/man/ggobi-count-u4.rd
@@ -17,5 +17,7 @@ The different ggobi instances are maintained as C  level structures.
 This function accesses a variable that stores how many are in existence
 when the function is invoked.}
 
-\examples{ggobi_count()}
+\examples{
+if (interactive()) {
+ggobi_count()}}
 \keyword{dynamic}
diff --git a/man/ggobi-default-20.rd b/man/ggobi-default-20.rd
@@ -43,11 +43,13 @@ pointing to the data in GGobi so that all changes are kept in sync.
 If you need to force a ggobiDaataset to be an R \code{data.frame} use
 \code{\link{as.data.frame}}.}
 
-\examples{ggobi(ggobi_find_file("data", "flea.csv"))
+\examples{
+if (interactive()) {
+ggobi(ggobi_find_file("data", "flea.csv"))
 ggobi(ggobi_find_file("data", "flea.xml"))
 ggobi(mtcars)
 mtcarsg <- ggobi_get()$mtcars
 glyph_colour(mtcarsg)
 glyph_colour(mtcarsg) <- ifelse(mtcarsg$cyl < 4, 1, 2)
-glyph_size(mtcarsg) <- mtcarsg$cyl}
+glyph_size(mtcarsg) <- mtcarsg$cyl}}
 \keyword{dynamic}
diff --git a/man/ggobi-display-get-tour-projection-p0.rd b/man/ggobi-display-get-tour-projection-p0.rd
@@ -18,8 +18,11 @@ can run commands).
 This can be used to record interesting projections of your
 data for later analysis.}
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 d <- displays(g)[[1]]
+}
 \dontrun{
 pmode(d) <- "2D Tour"
 ggobi_display_get_tour_projection(d)
diff --git a/man/ggobi-display-set-tour-projection-2n.rd b/man/ggobi-display-set-tour-projection-2n.rd
@@ -17,8 +17,11 @@ in the tour, you can use this function to set it.  The
 example illustrates setting the projection to show
 the first two principle components.}
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 d <- displays(g)[[1]]
+}
 \dontrun{
 pmode(d) <- "2D Tour"
 variables(d) <- list(X=names(mtcars))
diff --git a/man/ggobi-get-2m.rd b/man/ggobi-get-2m.rd
@@ -15,8 +15,10 @@ Returns a ggobi reference
 \details{This allows one to get a list of all the ggobi instances currently
 in existence in the R session.  Also, one can fetch particular instances.}
 
-\examples{ggobi(mtcars)
+\examples{
+if (interactive()) {
+ggobi(mtcars)
 ggobi(Nile)
 ggobi_get(1)
-ggobi_get(1:2)}
+ggobi_get(1:2)}}
 \keyword{dynamic}
diff --git a/man/ggobi-longitudinal-2e.rd b/man/ggobi-longitudinal-2e.rd
@@ -25,7 +25,8 @@ categorical brushing on the id variable, so that the entire
 series is selected for an observation.}
 
 \examples{data(Oxboys, package="nlme")
+if (interactive()) {
 ggobi_longitudinal(Oxboys, Occasion, Subject)
 ggobi_longitudinal(stormtracks, seasday, id)
-ggobi_longitudinal(data.frame(x=1:100, y=sin(1:100)))}
+ggobi_longitudinal(data.frame(x=1:100, y=sin(1:100)))}}
 \keyword{dynamic}
diff --git a/man/imode-8g.rd b/man/imode-8g.rd
@@ -22,9 +22,11 @@ You can see the list of available interaction modes
 using the \code{\link{imodes}} function.  This accepts
 either a GGobiDisplay, or the name of the display type.}
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 d <- displays(g)[[1]]
 imode(d)
 imodes(d)
-imode(d) <- "Brush"}
+imode(d) <- "Brush"}}
 \keyword{dynamic}
diff --git a/man/names-GGobi-pt.rd b/man/names-GGobi-pt.rd
@@ -13,6 +13,8 @@ Get dataset names
 
 
 
-\examples{g <- ggobi(mtcars)
-names(g)}
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
+names(g)}}
 \keyword{dynamic}
diff --git a/man/pmode-ix.rd b/man/pmode-ix.rd
@@ -20,9 +20,11 @@ You can see the list of available projection modes
 using the \code{\link{pmodes}} function.  This accepts
 either a GGobiDisplay, or the name of the display type.}
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 d <- displays(g)[[1]]
 pmode(d)
 pmodes(d)
-pmode(d) <- "1D Plot"}
+pmode(d) <- "1D Plot"}}
 \keyword{dynamic}
diff --git a/man/rownames---GGobiData-rg.rd b/man/rownames---GGobiData-rg.rd
@@ -14,10 +14,12 @@ Set row names for a GGobiData
 
 
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 df <- g[1]
 rownames(df)
 rownames(df) <- tolower(rownames(df))
-rownames(df)}
+rownames(df)}}
 \keyword{attribute}
 \keyword{internal}
diff --git a/man/set--GGobi-b7.rd b/man/set--GGobi-b7.rd
@@ -18,7 +18,9 @@ Add data to ggobi instance.
 \details{This function allows you to add (and eventually) replace
 GGobiData objects in a GGobi instance.}
 
-\examples{g <- ggobi()
+\examples{
+if (interactive()) {
+g <- ggobi()
 g["a"] <- mtcars
-g$b <- mtcars}
+g$b <- mtcars}}
 \keyword{manip}
diff --git a/man/set--GGobiData-56.rd b/man/set--GGobiData-56.rd
@@ -19,10 +19,12 @@ This functions allow one to treat a ggobi dataset as if it were a local data.fra
 \details{This method works by retrieving the entire dataset into
 R, subsetting that copy, and then returning any changes.}
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 x <- g["mtcars"]
 x[1:5, 1:5]
 x[1:5, 1] <- 1:5
-x[1:5, 1:5]}
+x[1:5, 1:5]}}
 \keyword{manip}
 \keyword{internal}
diff --git a/man/summary-GGobi-c4.rd b/man/summary-GGobi-c4.rd
@@ -14,6 +14,8 @@ Get a description of the global state of the GGobi session.
 
 
 
-\examples{g <- ggobi(mtcars)
-summary(g)}
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
+summary(g)}}
 \keyword{dynamic}
diff --git a/man/valid-ggobi-uv.rd b/man/valid-ggobi-uv.rd
@@ -19,9 +19,11 @@ from an S object. Since the C level object can be destroyed while the S
 object still refers to them, this function allows one to check whether the
 internal object to which R refers is still in existence.}
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 valid_ggobi(g)
 close(g)
-valid_ggobi(g) }
+valid_ggobi(g) }}
 \keyword{dynamic}
 \keyword{internal}
diff --git a/man/variables---GGobiDisplay-a6.rd b/man/variables---GGobiDisplay-a6.rd
@@ -23,10 +23,12 @@ Currently, there is no checking done to ensure that you are
 sending a sensible set of variables for the given display type.
 Generally, any invalid choices will be silently ignored.}
 
-\examples{g <- ggobi(mtcars)
+\examples{
+if (interactive()) {
+g <- ggobi(mtcars)
 d <- display(g[1], "Parallel Coordinates Display")
 variables(d)
 variables(d) <- list(X=1:8)
 variables(d) <- list(X=c("mpg", "cyl"))
-variables(d)}
+variables(d)}}
 \keyword{dynamic}
