* using log directory 'd:/Rcompile/CRANpkg/local/4.0/RCDT.Rcheck'
* using R version 4.0.5 (2021-03-31)
* using platform: x86_64-w64-mingw32 (64-bit)
* using session charset: ISO8859-1
* checking for file 'RCDT/DESCRIPTION' ... OK
* checking extension type ... Package
* this is package 'RCDT' version '1.1.0'
* package encoding: UTF-8
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking whether package 'RCDT' can be installed ... OK
* checking installed package size ... OK
* checking package directory ... OK
* checking 'build' directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* loading checks for arch 'i386'
** checking whether the package can be loaded ... OK
** checking whether the package can be loaded with stated dependencies ... OK
** checking whether the package can be unloaded cleanly ... OK
** checking whether the namespace can be loaded with stated dependencies ... OK
** checking whether the namespace can be unloaded cleanly ... OK
** checking loading without being on the library search path ... OK
** checking use of S3 registration ... OK
* loading checks for arch 'x64'
** checking whether the package can be loaded ... OK
** checking whether the package can be loaded with stated dependencies ... OK
** checking whether the package can be unloaded cleanly ... OK
** checking whether the namespace can be loaded with stated dependencies ... OK
** checking whether the namespace can be unloaded cleanly ... OK
** checking loading without being on the library search path ... OK
** checking use of S3 registration ... OK
* checking dependencies in R code ... OK
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... [7s] OK
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking line endings in C/C++/Fortran sources/headers ... OK
* checking line endings in Makefiles ... OK
* checking compilation flags in Makevars ... OK
* checking for GNU extensions in Makefiles ... OK
* checking for portable use of $(BLAS_LIBS) and $(LAPACK_LIBS) ... OK
* checking use of PKG_*FLAGS in Makefiles ... OK
* checking pragmas in C/C++ headers and code ... OK
* checking compiled code ... OK
* checking installed files from 'inst/doc' ... OK
* checking files in 'vignettes' ... OK
* checking examples ...
** running examples for arch 'i386' ... [3s] ERROR
Running examples in 'RCDT-Ex.R' failed
The error most likely occurred in:

> ### Name: plotDelaunay
> ### Title: Plot 2D Delaunay triangulation
> ### Aliases: plotDelaunay
> 
> ### ** Examples
> 
> library(RCDT)
> # random points in a square ####
> square <- rbind(
+   c(-1, 1), c(1, 1), c(1, -1), c(-1, -1)
+ )
> library(uniformly)
> set.seed(314)
> pts_in_square <- runif_in_cube(10L, d = 2L)
> pts <- rbind(square, pts_in_square)
> d <- delaunay(pts)
> opar <- par(mar = c(0, 0, 0, 0))
> plotDelaunay(
+   d, type = "n", xlab = NA, ylab = NA, axes = FALSE, asp = 1, 
+   fillcolor = "random", luminosity = "dark", lwd_borders = 3
+ )
> par(opar)
> 
> # a constrained Delaunay triangulation: pentagram ####
> # vertices
> R <- sqrt((5-sqrt(5))/10)     # outer circumradius
> r <- sqrt((25-11*sqrt(5))/10) # circumradius of the inner pentagon
> k <- pi/180 # factor to convert degrees to radians
> X <- R * vapply(0L:4L, function(i) cos(k * (90+72*i)), numeric(1L))
> Y <- R * vapply(0L:4L, function(i) sin(k * (90+72*i)), numeric(1L))
> x <- r * vapply(0L:4L, function(i) cos(k * (126+72*i)), numeric(1L))
> y <- r * vapply(0L:4L, function(i) sin(k * (126+72*i)), numeric(1L))
> vertices <- rbind(
+   c(X[1L], Y[1L]),
+   c(x[1L], y[1L]),
+   c(X[2L], Y[2L]),
+   c(x[2L], y[2L]),
+   c(X[3L], Y[3L]),
+   c(x[3L], y[3L]),
+   c(X[4L], Y[4L]),
+   c(x[4L], y[4L]),
+   c(X[5L], Y[5L]),
+   c(x[5L], y[5L])
+ )
> # constraint edge indices (= boundary)
> edges <- cbind(1L:10L, c(2L:10L, 1L))
> # constrained Delaunay triangulation
> del <- delaunay(vertices, edges)
> # plot
> opar <- par(mar = c(0, 0, 0, 0))
> plotDelaunay(
+   del, type = "n", asp = 1, fillcolor = "distinct", lwd_borders = 3,
+   xlab = NA, ylab = NA, axes = FALSE
+ )
> par(opar)
> # interactive plot with 'rgl'
> mesh <- del[["mesh"]]
> library(rgl)
> open3d(windowRect = c(100, 100, 612, 612))
wgl 
  1 
> shade3d(mesh, color = "red", specular = "orangered")
> wire3d(mesh, color = "black", lwd = 3, specular = "black")
> # plot only the border edges - we could find them in `del[["edges"]]` 
>   # but we use the 'rgl' function `getBoundary3d` instead
> open3d(windowRect = c(100, 100, 612, 612))
wgl 
  2 
> shade3d(mesh, color = "darkred", specular = "firebrick")
> shade3d(getBoundary3d(mesh), lwd = 3)
> 
> # an example where `fillcolor` is a vector of colors ####
> n <- 50L # number of sides of the outer polygon
> angles1 <- head(seq(0, 2*pi, length.out = n + 1L), -1L)
> outer_points <- cbind(cos(angles1), sin(angles1))
> m <- 5L # number of sides of the inner polygon
> angles2 <- head(seq(0, 2*pi, length.out = m + 1L), -1L)
> phi <- (1+sqrt(5))/2 # the ratio  2-phi  will yield a perfect pentagram
> inner_points <- (2-phi) * cbind(cos(angles2), sin(angles2))
> points <- rbind(outer_points, inner_points)
> # constraint edges
> indices <- 1L:n
> edges_outer <- cbind(indices, c(indices[-1L], indices[1L]))
> indices <- n + 1L:m
> edges_inner <- cbind(indices, c(indices[-1L], indices[1L]))
> edges <- rbind(edges_outer, edges_inner)
> # constrained Delaunay triangulation
> del <- delaunay(points, edges) 
> # there are 55 triangles:
> del[["mesh"]]
 mesh3d object with 55 vertices, 55 triangles.
> # we make a cyclic palette of colors:
> colors <- viridisLite::turbo(28)
> colors <- c(colors, rev(colors[-1L]))
> # plot
> opar <- par(mar = c(0, 0, 0, 0))
> plotDelaunay(
+   del, type = "n", asp = 1, lwd_borders = 3, col_borders = "black", 
+   fillcolor = colors, col_edges = "black", lwd_edges = 1.5, 
+   axes = FALSE, xlab = NA, ylab = NA
+ )
Error in FUN(newX[, i], ...) : unused argument (simplify = TRUE)
Calls: plotDelaunay -> apply
Execution halted
** running examples for arch 'x64' ... [3s] ERROR
Running examples in 'RCDT-Ex.R' failed
The error most likely occurred in:

> ### Name: plotDelaunay
> ### Title: Plot 2D Delaunay triangulation
> ### Aliases: plotDelaunay
> 
> ### ** Examples
> 
> library(RCDT)
> # random points in a square ####
> square <- rbind(
+   c(-1, 1), c(1, 1), c(1, -1), c(-1, -1)
+ )
> library(uniformly)
> set.seed(314)
> pts_in_square <- runif_in_cube(10L, d = 2L)
> pts <- rbind(square, pts_in_square)
> d <- delaunay(pts)
> opar <- par(mar = c(0, 0, 0, 0))
> plotDelaunay(
+   d, type = "n", xlab = NA, ylab = NA, axes = FALSE, asp = 1, 
+   fillcolor = "random", luminosity = "dark", lwd_borders = 3
+ )
> par(opar)
> 
> # a constrained Delaunay triangulation: pentagram ####
> # vertices
> R <- sqrt((5-sqrt(5))/10)     # outer circumradius
> r <- sqrt((25-11*sqrt(5))/10) # circumradius of the inner pentagon
> k <- pi/180 # factor to convert degrees to radians
> X <- R * vapply(0L:4L, function(i) cos(k * (90+72*i)), numeric(1L))
> Y <- R * vapply(0L:4L, function(i) sin(k * (90+72*i)), numeric(1L))
> x <- r * vapply(0L:4L, function(i) cos(k * (126+72*i)), numeric(1L))
> y <- r * vapply(0L:4L, function(i) sin(k * (126+72*i)), numeric(1L))
> vertices <- rbind(
+   c(X[1L], Y[1L]),
+   c(x[1L], y[1L]),
+   c(X[2L], Y[2L]),
+   c(x[2L], y[2L]),
+   c(X[3L], Y[3L]),
+   c(x[3L], y[3L]),
+   c(X[4L], Y[4L]),
+   c(x[4L], y[4L]),
+   c(X[5L], Y[5L]),
+   c(x[5L], y[5L])
+ )
> # constraint edge indices (= boundary)
> edges <- cbind(1L:10L, c(2L:10L, 1L))
> # constrained Delaunay triangulation
> del <- delaunay(vertices, edges)
> # plot
> opar <- par(mar = c(0, 0, 0, 0))
> plotDelaunay(
+   del, type = "n", asp = 1, fillcolor = "distinct", lwd_borders = 3,
+   xlab = NA, ylab = NA, axes = FALSE
+ )
> par(opar)
> # interactive plot with 'rgl'
> mesh <- del[["mesh"]]
> library(rgl)
> open3d(windowRect = c(100, 100, 612, 612))
wgl 
  1 
> shade3d(mesh, color = "red", specular = "orangered")
> wire3d(mesh, color = "black", lwd = 3, specular = "black")
> # plot only the border edges - we could find them in `del[["edges"]]` 
>   # but we use the 'rgl' function `getBoundary3d` instead
> open3d(windowRect = c(100, 100, 612, 612))
wgl 
  2 
> shade3d(mesh, color = "darkred", specular = "firebrick")
> shade3d(getBoundary3d(mesh), lwd = 3)
> 
> # an example where `fillcolor` is a vector of colors ####
> n <- 50L # number of sides of the outer polygon
> angles1 <- head(seq(0, 2*pi, length.out = n + 1L), -1L)
> outer_points <- cbind(cos(angles1), sin(angles1))
> m <- 5L # number of sides of the inner polygon
> angles2 <- head(seq(0, 2*pi, length.out = m + 1L), -1L)
> phi <- (1+sqrt(5))/2 # the ratio  2-phi  will yield a perfect pentagram
> inner_points <- (2-phi) * cbind(cos(angles2), sin(angles2))
> points <- rbind(outer_points, inner_points)
> # constraint edges
> indices <- 1L:n
> edges_outer <- cbind(indices, c(indices[-1L], indices[1L]))
> indices <- n + 1L:m
> edges_inner <- cbind(indices, c(indices[-1L], indices[1L]))
> edges <- rbind(edges_outer, edges_inner)
> # constrained Delaunay triangulation
> del <- delaunay(points, edges) 
> # there are 55 triangles:
> del[["mesh"]]
 mesh3d object with 55 vertices, 55 triangles.
> # we make a cyclic palette of colors:
> colors <- viridisLite::turbo(28)
> colors <- c(colors, rev(colors[-1L]))
> # plot
> opar <- par(mar = c(0, 0, 0, 0))
> plotDelaunay(
+   del, type = "n", asp = 1, lwd_borders = 3, col_borders = "black", 
+   fillcolor = colors, col_edges = "black", lwd_edges = 1.5, 
+   axes = FALSE, xlab = NA, ylab = NA
+ )
Error in FUN(newX[, i], ...) : unused argument (simplify = TRUE)
Calls: plotDelaunay -> apply
Execution halted
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes in 'inst/doc' ... OK
* checking re-building of vignette outputs ... [4s] OK
* checking PDF version of manual ... OK
* DONE
Status: 2 ERRORs