Running ‘coef.R’
  Running ‘confint.R’ [52s/67s]
  Running ‘datetime.R’
  Running ‘egf.R’
  Running ‘egf_enum.R’
  Running ‘egf_eval.R’
  Running ‘egf_examples_day_of_week.R’
  Running ‘egf_examples_excess.R’
  Running ‘egf_examples_fixed.R’
  Running ‘egf_examples_random.R’ [109s/63s]
  Running ‘egf_link.R’
  Running ‘egf_misc.R’
  Running ‘egf_options.R’
  Running ‘egf_utils.R’
  Running ‘epidemic.R’
  Running ‘extract.R’
  Running ‘fitted.R’
  Running ‘gi.R’
  Running ‘include.R’ [277s/280s]
  Running ‘language.R’
  Running ‘prior.R’
  Running ‘profile.R’ [32s/48s]
  Running ‘summary.R’
  Running ‘utils.R’
  Running ‘validity.R’
  Running ‘zzz.R’
Running the tests in ‘tests/include.R’ failed.
Complete output:
  > library(epigrowthfit)
  > options(warn = 2L, error = if (interactive()) recover)
  > 
  > src <- "src"
  > src. <- system.file("tests", src, package = "epigrowthfit", mustWork = TRUE)
  > file.copy(c(src, src.), tempdir(), recursive = TRUE)
  [1] TRUE TRUE
  > setwd(file.path(tempdir(), src))
  > Sys.setenv(R_TESTS = "") # startup.Rs does not exist here
  > 
  > dll <- "test"
  > cpp <- paste0(dll, ".cpp")
  > TMB::compile(cpp)
  using C++ compiler: 'g++-14 (GCC) 14.1.0'
  make[1]: Entering directory '/tmp/RtmpKXwzT4/working_dir/Rtmp3BwRX0/src'
  g++-14 -std=gnu++17 -I"/data/gannet/ripley/R/R-devel/include" -DNDEBUG -I"/data/gannet/ripley/R/test-dev/TMB/include" -I"/data/gannet/ripley/R/test-dev/RcppEigen/include"  -DTMB_SAFEBOUNDS -DTMB_EIGEN_DISABLE_WARNINGS -DLIB_UNLOAD=R_unload_test  -DTMB_LIB_INIT=R_init_test  -DCPPAD_FRAMEWORK  -I/usr/local/include    -fpic  -g -O2 -Wall -pedantic -mtune=native -Wno-ignored-attributes -Wno-parentheses -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection   -c test.cpp -o test.o
  In file included from /data/gannet/ripley/R/test-dev/TMB/include/TMB.hpp:201,
                   from test.cpp:1:
  /data/gannet/ripley/R/test-dev/TMB/include/expm.hpp:221:22: warning: template-id not allowed for constructor in C++20 [-Wtemplate-id-cdtor]
    221 |     nestedTriangle<0>(){}
        |                      ^
  /data/gannet/ripley/R/test-dev/TMB/include/expm.hpp:221:22: note: remove the '< >'
  /data/gannet/ripley/R/test-dev/TMB/include/expm.hpp:222:23: warning: template-id not allowed for constructor in C++20 [-Wtemplate-id-cdtor]
    222 |     nestedTriangle<0>(Base x) : Base(x){}
        |                       ^~~~
  /data/gannet/ripley/R/test-dev/TMB/include/expm.hpp:222:23: note: remove the '< >'
  /data/gannet/ripley/R/test-dev/TMB/include/expm.hpp:223:23: warning: template-id not allowed for constructor in C++20 [-Wtemplate-id-cdtor]
    223 |     nestedTriangle<0>(vector<matrix<double> > args) : Block<double>(args[0]) {}
        |                       ^~~~~~~~~~~~~~~~~~~~~~~
  /data/gannet/ripley/R/test-dev/TMB/include/expm.hpp:223:23: note: remove the '< >'
  g++-14 -std=gnu++17 -shared -L/usr/local/gcc14/lib64 -L/usr/local/lib64 -o test.so test.o
  make[1]: Leaving directory '/tmp/RtmpKXwzT4/working_dir/Rtmp3BwRX0/src'
  make[1]: Entering directory '/tmp/RtmpKXwzT4/working_dir/Rtmp3BwRX0/src'
  make[1]: Leaving directory '/tmp/RtmpKXwzT4/working_dir/Rtmp3BwRX0/src'
  [1] 0
  > dyn.load(paste0(dll, .Platform[["dynlib.ext"]]))
  > 
  > getReport <- local({
  + 	tt <- readLines(cpp)
  + 	tt <- paste(tt, collapse = "\n")
  + 	tt <- chartr("\t\r\n", "   ", tt)
  + 	tt <- sub("^.*?enum +test *\\{(.*?)\\} *;.*$", "\\1", tt)
  + 	tt <- gsub(" ", "", tt)
  + 	enum. <- strsplit(tt, ",")[[1L]]
  + 
  + 	function(enum, ...)
  + 		TMB::MakeADFun(data = list(flag = match(enum, enum., 0L) - 1L, ...),
  + 		               parameters = list(),
  + 		               type = "Fun",
  + 		               checkParameterOrder = FALSE,
  + 		               DLL = dll)[["report"]]()[["ans"]]
  + })
  > 
  > mvlgamma <- function(x, p)
  +     0.25 * p * (p - 1) * log(pi) + rowSums(lgamma(outer(x, seq.int(0, by = 0.5, length.out = p), `-`)))
  > 
  > dlkj <- function(x, eta, log = FALSE) {
  + 	n <- 0.5 * (1 + sqrt(1 + 8 * length(x)))
  + 	R <- diag(n)
  + 	R[upper.tri(R)] <- x
  + 	log.ans <- (eta - 1) * (-sum(log(colSums(R * R))))
  + 	if (log) log.ans else exp(log.ans)
  + }
  > 
  > dwishart <- function(x, df, scale, log = FALSE) {
  + 	n <- 0.5 * (-1 + sqrt(1 + 8 * length(x)))
  + 	X <- theta2cov(x)
  + 	S <- theta2cov(scale)
  + 	log.ans <- -0.5 * (df * log(det(S)) + (-df + n + 1) * log(det(X)) + n * df * log(2) + 2 * mvlgamma(0.5 * df, n) + sum(diag(solve(S, X))))
  + 	if (log) log.ans else exp(log.ans)
  + }
  > 
  > dinvwishart <- function(x, df, scale, log = FALSE) {
  + 	n <- 0.5 * (-1 + sqrt(1 + 8 * length(x)))
  + 	X <- theta2cov(x)
  + 	S <- theta2cov(scale)
  + 	log.ans <- -0.5 * (-df * log(det(S)) + (df + n + 1) * log(det(X)) + n * df * log(2) + 2 * mvlgamma(0.5 * df, n) + sum(diag(solve(X, S))))
  + 	if (log) log.ans else exp(log.ans)
  + }
  > 
  > 
  > ## list_of_vectors_t
  > x <- list(rnorm(10L), seq_len(5L), TRUE, double(0L))
  > ans <- getReport("list_of_vectors_t", x = x)
  Error in isNullPointer(ADFun$ptr) : 
    R_ExternalPtrAddr: argument of type NILSXP is not an external pointer
  Calls: getReport -> <Anonymous> -> f -> isNullPointer
  Execution halted