Running 'testsAtoC.R' [2s]
  Running 'testsD.R' [8s]
  Running 'testsEtoF.R' [4s]
  Running 'testsGtoJ.R' [2s]
  Running 'testsK.R' [2s]
  Running 'testsL.R' [33s]
  Running 'testsM.R' [4s]
  Running 'testsNtoO.R' [2s]
  Running 'testsP1.R' [1s]
  Running 'testsP2.R' [8s]
  Running 'testsQ.R' [2s]
  Running 'testsR1.R' [2s]
  Running 'testsR2.R' [13s]
  Running 'testsS.R' [2s]
  Running 'testsT.R' [4s]
  Running 'testsUtoZ.R' [2s]
Running the tests in 'tests/testsUtoZ.R' failed.
Complete output:
  > #'
  > #'   Header for all (concatenated) test files
  > #'
  > #'   Require spatstat.model
  > #'   Obtain environment variable controlling tests.
  > #'
  > #'   $Revision: 1.5 $ $Date: 2020/04/30 05:31:37 $
  > 
  > require(spatstat.model)
  Loading required package: spatstat.model
  Loading required package: spatstat.data
  Loading required package: spatstat.geom
  spatstat.geom 3.2-5
  Loading required package: spatstat.random
  spatstat.random 3.1-6
  Loading required package: spatstat.explore
  Loading required package: nlme
  spatstat.explore 3.2-3
  Loading required package: rpart
  spatstat.model 3.2-6
  > FULLTEST <- (nchar(Sys.getenv("SPATSTAT_TEST", unset="")) > 0)
  > ALWAYS   <- TRUE
  > cat(paste("--------- Executing",
  +           if(FULLTEST) "** ALL **" else "**RESTRICTED** subset of",
  +           "test code -----------\n"))
  --------- Executing **RESTRICTED** subset of test code -----------
  > #
  > #  tests/undoc.R
  > #
  > #   $Revision: 1.16 $   $Date: 2020/11/02 07:06:49 $
  > #
  > #  Test undocumented hacks, experimental code, etc
  > 
  > 
  > local({
  +   if(FULLTEST) {
  +     ## cases of 'pickoption'
  +     aliases <- c(Lenin="Ulyanov", Stalin="Djugashvili", Trotsky="Bronstein")
  +     surname <- "Trot"
  +     pickoption("leader", surname,  aliases)
  +     pickoption("leader", surname,  aliases, exact=TRUE, die=FALSE)
  +   }
  +   if(ALWAYS) {
  +     ## pixellate.ppp accepts a data frame of weights
  +     pixellate(cells, weights=data.frame(a=1:42, b=42:1))
  +     ## test parts of 'rmhsnoop' that don't require interaction with user
  +     rmhSnoopEnv(cells, Window(cells), 0.1)
  +   }
  +   if(FULLTEST) {
  +     ## Berman-Turner frame
  +     A <- bt.frame(quadscheme(cells), ~x, Strauss(0.07), rbord=0.07)
  +     print(A)
  +     ## digestCovariates
  +     D <- distfun(cells)
  +     Z <- distmap(cells)
  +     U <- dirichlet(cells)
  +     stopifnot(is.scov(D))
  +     stopifnot(is.scov(Z))
  +     stopifnot(is.scov(U))
  +     stopifnot(is.scov("x"))
  +     dg <- digestCovariates(D=D,Z=Z,U=U,"x",list(A="x", B=D))
  +     ##
  +     a <- getfields(dg, c("A", "D", "niets"), fatal=FALSE)
  +     ## util.R
  +     gg <- pointgrid(owin(), 7)
  +     checkbigmatrix(1000000L, 1000000L, FALSE, TRUE)
  +     spatstatDiagnostic("whatever")
  +     M <- list(list(a=2, b=FALSE),
  +               list(a=2, b=TRUE))
  +     stopifnot(!allElementsIdentical(M))
  +     stopifnot(allElementsIdentical(M, "a"))
  +     ##
  +     A <- Strauss(0.1)
  +     A <- reincarnate.interact(A)
  +     ##
  +     ## special lists
  +     B <- solist(a=cells, b=redwood, c=japanesepines)
  +     BB <- as.ppplist(B)
  +     BL <- as.layered(B)
  +     DB <- as.imlist(lapply(B, density))
  +     is.solist(B)
  +     is.ppplist(B)
  +     is.imlist(DB)
  +     ## case of density.ppplist 
  +     DEB <- density(BB, se=TRUE)
  +   }
  + 
  +   if(ALWAYS) {
  +     ## fft
  +     z <- matrix(1:16, 4, 4)
  +     a <- fft2D(z, west=FALSE)
  +     if(fftwAvailable())
  +       b <- fft2D(z, west=TRUE)
  +   }
  + 
  +   if(ALWAYS) {
  +     ## experimental interactions
  +     pot <- function(d, par) { d <= 0.1 }
  +     A <- Saturated(pot)
  +     print(A)
  +     A <- update(A, name="something")
  +     ppm(amacrine ~ x, A, rbord=0.1)
  +   }
  + 
  +   if(ALWAYS) { # platform dependent
  +     #' version-checking
  +     now <- Sys.Date()
  +     versioncurrency.spatstat(now + 80, FALSE)
  +     versioncurrency.spatstat(now + 140, FALSE)
  +     versioncurrency.spatstat(now + 400, FALSE)
  +     versioncurrency.spatstat(now + 1000)
  +   }
  + 
  +   if(FULLTEST) {
  +     #' general Ord interaction
  +     gradual <- function(d, pars) {
  +       y <- pmax(0, 0.005 - d)/0.005
  +       if(is.matrix(d)) y <- matrix(y, nrow(d), ncol(d))
  +       return(y)
  +     }
  +     B <- Ord(gradual, "gradual Ord process")
  +   }
  + })
  Saturated pairwise interaction family
  Interaction:Saturated process with user-defined potential
  Potential function:
  function (d, par) 
  {
      d <= 0.1
  }
  <environment: 0x000002035966c8b0>
  Error in if (!inherits(rdate, "Date") || length(rdate) == 0 || (today -  : 
    missing value where TRUE/FALSE needed
  Calls: local ... eval -> eval -> eval -> eval -> versioncurrency.spatstat
  Execution halted