[R-gregmisc-commits] r2049 - in pkg/gtools: data man

[noreply at r-forge.r-project.org]

Author: warnes
Date: 2015-05-27 19:01:18 +0200 (Wed, 27 May 2015)
New Revision: 2049

Added:
   pkg/gtools/data/badDend.rda
   pkg/gtools/man/badDend.Rd
Modified:
   pkg/gtools/man/unByteCode.Rd
Log:
Create local dataset to use in the example code for unByteCode instead of relying on web access.


Added: pkg/gtools/data/badDend.rda
===================================================================
(Binary files differ)


Property changes on: pkg/gtools/data/badDend.rda
___________________________________________________________________
Added: svn:mime-type
   + application/octet-stream

Added: pkg/gtools/man/badDend.Rd
===================================================================
--- pkg/gtools/man/badDend.Rd	                        (rev 0)
+++ pkg/gtools/man/badDend.Rd	2015-05-27 17:01:18 UTC (rev 2049)
@@ -0,0 +1,24 @@
+\name{badDend}
+\alias{badDend}
+\docType{data}
+\title{Dataset That Crashes Base:::Plot.Dendogram with 'Node Stack Overflow'}
+\description{
+  Base:::Plot.Dendogram() will generate a 'Node Stack Overflow' when run
+  on a dendrogram appropriately constructed from this data set.
+}
+\usage{data("badDend")}
+\format{
+  The format is:
+ num [1:2047, 1:12] 1 2 3 4 5 6 7 8 9 10 ...
+ - attr(*, "dimnames")=List of 2
+  ..$ : NULL
+  ..$ : chr [1:12] "X" "V1" "V2" "V3" ...
+}
+\note{
+  See help page for \code{\link{unByteCode}} to see how to construct the
+  'bad' dentrogram from this data and how to work around the issue.
+  }
+\examples{
+data(badDend)
+}
+\keyword{datasets}

Modified: pkg/gtools/man/unByteCode.Rd
===================================================================
--- pkg/gtools/man/unByteCode.Rd	2015-05-27 16:38:37 UTC (rev 2048)
+++ pkg/gtools/man/unByteCode.Rd	2015-05-27 17:01:18 UTC (rev 2049)
@@ -54,18 +54,17 @@
   \code{\link{assign}}
 }
 \examples{
-datURL <- "https://bugs.r-project.org/bugzilla/attachment.cgi?id=1659"
-dat <- as.matrix(read.csv(file=datURL, row.names=1))
+data(badDend)
 dist2 <- function(x) as.dist(1-cor(t(x), method="pearson"))
 hclust1 <- function(x) hclust(x, method = "single")
 
-distance <- dist2(dat)
+distance <- dist2(badDend)
 cluster  <- hclust1(distance)
 
 dend <- as.dendrogram(cluster)
 
 \dontrun{
-    ## In R 2.3.0 and earlier crashes R: with a node stack overflow error
+    ## In R 2.3.0 and earlier crashes with a node stack overflow error
     plot(dend)
     ## Error in xy.coords(x, y, recycle = TRUE) : node stack overflow
 }