Running 'test.densityLegend.R' [2s]
  Running 'test.legendFunctions.R' [169s]
  Running 'test.oaTemplate.R' [1s]
  Running 'test.plotDots.R' [170s]
  Running 'test.pointsOnBoxplot.R' [156s]
  Running 'test.splitCircle.R' [1s]
  Running 'test.splitDensity.R' [152s]
Running the tests in 'tests/test.legendFunctions.R' failed.
Complete output:
  > library(oaPlots)
  Loading required package: oaColors
  > library(oaColors)
  > 
  > ###################
  > # layout tests
  > 
  > 
  > # 1
  > layout = matrix(c(1,1,0,2), 2, 2, byrow=TRUE)
  > type = "layout"
  > side = "bottom"
  > heights = c(3, 1)
  > widths = c(2, 1)
  > proportion = 0.1
  > n <- 7
  > 
  > 
  > prepLegend(layout = layout, side = side, proportion = proportion, 
  + 		heights = heights, width = widths)
  > for(i in 1:max(layout))
  + 	plot(1:n, 1:n, col = oaPalette(n), pch = 19, cex = 2.2, xaxt = "n", 
  + 			yaxt = "n", ann = FALSE)
  > addLegend(legend = names(oaPalette(n)), font = 2, 
  + 		pch = 19, pt.cex = 2.2, text.col = oaPalette(n), col = oaPalette(n), 
  + 		text.width = .11, xjust = 0, horiz = TRUE)
  > 
  > # 2
  > layout = rbind(c(1, 2, 3), c(0, 4, 3), c(0, 4, 5))
  > type = "layout"
  > side = "right"
  > heights = c(1, 1, 1)
  > widths = c(1, 1, 1)
  > proportion = 0.15
  > 
  > prepLegend(layout = layout, side = side, proportion = proportion, type = "layout",
  + 		heights = heights, width = widths)
  > for(i in 1:max(layout))
  + 	plot(1:n, 1:n, col = oaPalette(n), pch = 19, cex = 2.2, xaxt = "n", 
  + 			yaxt = "n", ann = FALSE)
  > addLegend(legend = names(oaPalette(n)), font = 2, 
  + 		pch = 19, pt.cex = 2.2, text.col = oaPalette(n), col = oaPalette(n), 
  + 		y.intersp = 1.5, xjust = 0, cex = 1.5)
  > 
  > 
  > # 3
  > layout = rbind(c(1, 2), c(0, 2), c(3, 2))
  > type = "layout"
  > side = "left"
  > heights = NULL
  > widths = NULL
  > proportion = 0.15
  > 
  > prepLegend(layout = layout, side = side, proportion = proportion, type = "layout",
  + 		heights = heights, width = widths)
  > for(i in 1:max(layout))
  + 	plot(1:n, 1:n, col = oaPalette(n), pch = 19, cex = 2.2, xaxt = "n", 
  + 			yaxt = "n", ann = FALSE)
  > addLegend(legend = names(oaPalette(n)), font = 2, 
  + 		pch = 19, pt.cex = 2.2, text.col = oaPalette(n), col = oaPalette(n), 
  + 		y.intersp = 1.5, xjust = 0, cex = 1.5)
  > 
  > 
  > 
  > 
  > ###################
  > # mfrow tests
  > 
  > 
  > # 1
  > layout <- c(1,1);
  > side <- "right"
  > proportion <- 0.15
  > n <- 7
  > 
  > 
  > prepLegend(layout = layout, side = side, proportion = proportion)
  > for(i in 1:(layout[1]*layout[2]))
  + 	plot(1:n, 1:n, col = oaPalette(n), pch = 19, cex = 2.2, xaxt = "n", 
  + 			yaxt = "n", ann = FALSE)
  > addLegend(x = "left", legend = names(oaPalette(n)), font = 2, 
  + 		pch = 19, pt.cex = 2, text.col = oaPalette(n), col = oaPalette(n), 
  + 		y.intersp = 1.5, xjust = 0)
  > 
  > 
  > 
  > # 2
  > layout <- c(2,3);
  > side <- "left"
  > proportion <- 0.2
  > 
  > prepLegend(layout = layout, side = side, proportion = proportion)
  > for(i in 1:(layout[1]*layout[2]))
  + 	plot(1:7, 1:7, col = oaPalette(7), pch = 19, cex = 2.2, xaxt = "n", 
  + 			yaxt = "n", ann = FALSE)
  > addLegend(legend = names(oaPalette(7)), font = 2, 
  + 		pch = 19, pt.cex = 2, text.col = oaPalette(7), col = oaPalette(7), 
  + 		y.intersp = 1.5, cex = 1.5)
  > 
  > 
  > # 3
  > layout <- c(2,2);
  > side <- "bottom"
  > proportion <- 0.05
  > 
  > 
  > prepLegend(layout = layout, side = side, proportion = proportion)
  > for(i in 1:(layout[1]*layout[2]))
  + 	plot(1:n, 1:n, col = oaPalette(n), pch = 19, cex = 2.2, xaxt = "n", 
  + 			yaxt = "n", main = "Lorem Ipsum", xlab = "", ylab = "")
  > addLegend(legend = names(oaPalette(n)), font = 2, 
  + 		pch = 19, pt.cex = 2, text.col = oaPalette(n), col = oaPalette(n), 
  + 		y.intersp = 1.5, cex = 1.5, horiz = TRUE)
  > 
  > 
  > 
  > proc.time()
     user  system elapsed 
     0.85    0.18    1.03 
Running the tests in 'tests/test.plotDots.R' failed.
Complete output:
  > library(oaPlots)
  Loading required package: oaColors
  > 
  > x <- sample(1:5, size = 25, replace = TRUE)
  > plot(x = -1, y = -1, xlim = c(0.5,1.5), ylim = range(x), 
  +     ylab = "", xlab = "")
  > colVec <- c(rep("olivedrab", 15), rep("goldenrod", 5), rep("red", 5))
  > 
  > boxplot(x)
  > plotDots(vec = x, xLeft = 0.9, xRight = 1.1, pch = 19, 
  +     col = colVec, cex = 2)
  > 
  > proc.time()
     user  system elapsed 
     0.93    0.21    1.14 
Running the tests in 'tests/test.pointsOnBoxplot.R' failed.
Complete output:
  > 
  > 
  > library(oaPlots)
  Loading required package: oaColors
  > 
  > # Examples run in the formula and default methods
  > x2 <- runif(50, 0, 10); 
  > table(customRound(x2, roundTo = 0.5))
  
    0 0.5 1.5   2   3 3.5   4   5 5.5   6 6.5   7 7.5   8 8.5   9 9.5  10 
    3   2   2   3   3   1   3   7   4   1   2   4   6   3   2   1   2   1 
  > boxplot(x2)
  > pointsOnBoxplot(x2, pch = 19, roundTo = 0.5)
  > 
  > 
  > x3 <- floor(runif(25, 0, 10)); table(x3)
  x3
  0 1 2 3 5 6 7 8 9 
  2 4 4 1 2 4 4 1 3 
  > boxplot(x3, horizontal = TRUE)
  > pointsOnBoxplot(x3, pch = 19, horizontal = TRUE)
  > 
  > 
  > 
  > 
  > # Set up input data
  > x <- c(sample(1:5, size = 25, replace = TRUE), rpois(25, lambda = 4))
  > colVec <- c(rep("olivedrab", 10), rep("red", 5), rep("goldenrod", 15), 
  +     rep("red", 15), rep("olivedrab", 5))
  > y <- rep(c("Awesome Rats", "Stupid Rats"), each = 25)
  > y2 <- rep(c("Open", "Analytics"), 25)
  > 
  > x2 <- c(1, 2, 2, 3, 3, 1, 1, 1, 4, 5)
  > y3 <- c(rep("A", 5), rep("B", 5))
  > levels(y3) <- c("A", "B", "C")
  > 
  > 
  > 
  > boxplot(x ~ y, horizontal = TRUE)
  > pointsOnBoxplot(x ~ y, horizontal = TRUE)
  > 
  > boxplot(x ~ y)
  > pointsOnBoxplot(x = x, y = y, col = colVec, pch = 19, cex = 2)
  > 
  > 
  > 
  > 
  > boxplot(x ~ y + y2)
  > pointsOnBoxplot(x ~ y + y2, col = colVec, pch = 19, cex = 2)
  > 
  > 
  > 
  > boxplot(x2 ~ y3)
  > pointsOnBoxplot(x2 ~ y3, col = "blue", pch = 19, cex = 2)
  > 
  > boxplot(x2 ~ y3)
  > pointsOnBoxplot(x = x2, y = y3, col = "blue", pch = 19, cex = 2)
  > 
  > #
  > 
  > 
  > 
  > 
  > 
  > 
  > 
  > 
  > 
  > proc.time()
     user  system elapsed 
     0.96    0.21    1.17 
Running the tests in 'tests/test.splitDensity.R' failed.
Complete output:
  > library(oaPlots)
  Loading required package: oaColors
  > library(RColorBrewer)
  > 
  > set.seed(1)
  > 
  > # example Code
  > par(plt = c(0,1,0,1))
  > data <- rnorm(1000)
  > x <- density(data)$x
  > y <- density(data)$y
  > 
  > colVec <- brewer.pal(9, "Blues")[3:8]
  > outerCol <- brewer.pal(9, "Blues")[9]
  > 
  > oaTemplate(xlim = range(x), ylim = c(0, 1), ygrid = 0, cex.axis = 1.2)
  > drawSplitDensity(x = x, y = y, colVec = colVec, split = c(-1, -2, 0, 2, 1), 
  + 		outerCol = outerCol,
  + 		yScale = 0.95, yshift = 0)
  > 
  > oaTemplate(xlim = range(x), ylim = c(0, 1), ygrid = 0, cex.axis = 1.2)
  > drawSplitDensity(x = x, y = y, colVec = colVec, split = c(0), 
  + 		outerCol = outerCol,
  + 		yScale = 0.95, yshift = 0)
  > 
  > oaTemplate(xlim = range(x), ylim = c(0, 1), ygrid = 0, cex.axis = 1.2)
  > drawSplitDensity(x, y, colVec = colVec, split = c(-100), 
  + 		outerCol = outerCol,
  + 		yScale = 0.95, yshift = 0)
  > 
  > # should give warning
  > oaTemplate(xlim = range(x), ylim = c(0, 1), ygrid = 0, cex.axis = 1.2)
  > drawSplitDensity(x, y, colVec = colVec, 
  + 		split = c(-1, -2, 0, 1, 1.1, 1.6, 1.8, 2.1, 2.2), 
  + 		outerCol = outerCol,
  + 		yScale = 0.95, yshift = 0)
  Warning message:
  In drawSplitDensity(x, y, colVec = colVec, split = c(-1, -2, 0,  :
    length(split) > length(colVec) - 1. Only the lowest 5 split values will be drawn.
  > 
  > # should give warning
  > oaTemplate(xlim = range(x), ylim = c(0, 1), ygrid = 0, cex.axis = 1.2)
  > drawSplitDensity(densityObj = density(data), x = x, y = y, colVec = colVec,
  + 		split = c(-1, -2, 0, 2, 1), outerCol = outerCol,
  + 		yScale = 0.95, yshift = 0)
  Warning message:
  In drawSplitDensity(densityObj = density(data), x = x, y = y, colVec = colVec,  :
    'density', 'x', and 'y' were all provided. Using 'density' to draw plot.
  > 
  > oaTemplate(xlim = range(x), ylim = c(0, 1), ygrid = 0, cex.axis = 1.2)
  > drawSplitDensity(densityObj = density(data), colVec = colVec,
  + 		split = c(-1, -2, 0, 2, 1), outerCol = outerCol,
  + 		yScale = 0.95, yshift = 0)
  > 
  > oaTemplate(xlim = range(x), ylim = c(0, 1), ygrid = 0, cex.axis = 1.2)
  > drawSplitDensity(densityObj = density(data), colVec = colVec[3],
  + 		split = NULL, outerCol = outerCol,
  + 		yScale = 0.95, yshift = 0)
  > 
  > 
  > 
  > 
  > 
  > 
  > # Example 2
  > data <- rnorm(1000)
  > x <- density(data)$x
  > y <- density(data)$y
  > colVec <- brewer.pal(9, "Reds")[3:8]
  > outerCol <- brewer.pal(9, "Reds")[9]
  > 
  > oaTemplate(xlim = range(x), ylim = c(0, 1), ygrid = 0, cex.axis = 1.2)
  > drawSplitDensity(x, y, colVec = colVec, split = c(-8), 
  + 		outerCol = outerCol,
  + 		yScale = 0.95, yshift = 0)
  > 
  > proc.time()
     user  system elapsed 
     0.73    0.23    0.95