Running examples in 'DescTools-Ex.R' failed
The error most likely occurred in:

> ### Name: PlotPolar
> ### Title: Plot Values on a Circular Grid
> ### Aliases: PlotPolar
> ### Keywords: hplot
> 
> ### ** Examples
> 
> testlen <- c(sin(seq(0, 1.98*pi, length=100))+2+rnorm(100)/10)
> testpos <- seq(0, 1.98*pi, length=100)
> 
> PlotPolar(testlen, testpos, type="l", main="Test Polygon", col="blue")
> PolarGrid(ntheta=9, col="grey", lty="solid", lblradians=TRUE)
> 
> # start at 12 o'clock and plot clockwise
> PlotPolar(testlen, -(testpos - pi/2), type="p", main="Test Polygon",
+           col="green", pch=16)
> 
> PolarGrid(ntheta = rev(seq(0, 2*pi, by=2*pi/9) + pi/2),
+           alabels=Format(seq(0, 2*pi, by=2*pi/9), digits=2)[-10], col="grey",
+           lty="solid", lblradians=TRUE)
> 
> 
> # just because of it's beauty
> t <- seq(0,2*pi,0.01)
> PlotPolar( r=sin(2*t)*cos(2*t), theta=t, type="l", lty="dashed", col="red" )
> PolarGrid()
> 
> 
> # use some filled polygons
> ions <- c(3.2,5,1,3.1,2.1,5)
> ion.names <- c("Na","Ca","Mg","Cl","HCO3","SO4")
> 
> PlotPolar(r = ions, type="l", fill="yellow")
> 
> # the same, but let's have a grid first
> PlotPolar(r = ions, type="l", lwd=2, col="blue", main="Ions",
+           panel.first=PolarGrid(nr=seq(0, 6, 1)) )
> 
> # leave the radial grid out
> PlotPolar(r = ions, type="l", fill="yellow")
> PolarGrid(nr = NA, ntheta = length(ions), alabels = ion.names,
+           col = "grey", lty = "solid" )
> 
> # display radial lines
> PlotPolar(r = ions, type="h", col="blue", lwd=3)
> # add some points
> PlotPolar(r = ions, type="p", pch=16, add=TRUE, col="red", cex=1.5)
> 
> # spiderweb (not really recommended...)
> posmat <- matrix(sample(2:9,30,TRUE),nrow=3)
> PlotPolar(posmat, type="l", main="Spiderweb plot", col=2:4, lwd=1:3)
> PolarGrid(nr=NA, ntheta=ncol(posmat), alabels=paste("X", 1:ncol(posmat), sep=""),
+           col="grey", lty="solid" )
> 
> # example from: The grammar of graphics (L. Wilkinson)
> data("UKgas")
> m <- matrix(UKgas, ncol=4, byrow=TRUE)
> cols <- c(SetAlpha(rep("green", 10), seq(0,1,0.1)),
+           SetAlpha(rep("blue", 10), seq(0,1,0.1)),
+           SetAlpha(rep("orange", 10), seq(0,1,0.1)))
Warning in mapply(FUN = function (col, alpha.f = 1, red.f = 1, green.f = 1,  :
  longer argument not a multiple of length of shorter
Warning in mapply(FUN = function (col, alpha.f = 1, red.f = 1, green.f = 1,  :
  longer argument not a multiple of length of shorter
Warning in mapply(FUN = function (col, alpha.f = 1, red.f = 1, green.f = 1,  :
  longer argument not a multiple of length of shorter
> 
> PlotPolar(r=m, type="l", col=cols, lwd=2 )
> PolarGrid(ntheta=4, alabels=c("Winter","Spring","Summer","Autumn"), lty="solid")
> legend(x="topright", legend=c(1960,1970,1980), fill=c("green","blue","orange"))
> 
> 
> # radarplot (same here, consider alternatives...)
> data(mtcars)
> d.car <- scale(mtcars[1:6,1:7], center=FALSE)
Warning in scale(mtcars[1:6, 1:7], center = FALSE) :
  internal error 5 in R_decompress3
Error in scale(mtcars[1:6, 1:7], center = FALSE) : 
  lazy-load database 'D:\RCompile\recent\R-4.4.0\library\datasets/data/Rdata.rdb' is corrupt
Execution halted