Running examples in ‘inctools-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: mdrical
> ### Title: Estimate Mean Duration of Recent Infection (MDRI)
> ### Aliases: mdrical
> 
> ### ** Examples
> 
> mdrical(data=excalibdata,
+         subid_var = "SubjectID",
+         time_var = "DaysSinceEDDI",
+         recency_cutoff_time = 730.5,
+         inclusion_time_threshold = 800,
+         functional_forms = c("cloglog_linear"),
+         recency_rule = "binary_data",
+         recency_vars = "Recent",
+         n_bootstraps = 10,
+         alpha = 0.05,
+         plot = TRUE)

  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |========                                                              |  11%
  |                                                                            
  |================                                                      |  22%
  |                                                                            
  |=======================                                               |  33%
  |                                                                            
  |===============================                                       |  44%
  |                                                                            
  |=======================================                               |  56%
  |                                                                            
  |===============================================                       |  67%
  |                                                                            
  |======================================================                |  78%
  |                                                                            
  |==============================================================        |  89%
  |                                                                            
  |======================================================================| 100%
$MDRI
                     PE    CI_LB    CI_UB     SE n_recent n_subjects
cloglog_linear 237.7463 225.2126 251.7963 9.5368      270        304
               n_observations
cloglog_linear            708

$Models
$Models$cloglog_linear

Call:  glm2::glm2(formula = (1 - recency_status) ~ 1 + I(log(time_since_eddi)), 
    family = stats::binomial(link = "cloglog"), data = data, 
    control = stats::glm.control(epsilon = tolerance, maxit = maxit, 
        trace = FALSE))

Coefficients:
            (Intercept)  I(log(time_since_eddi))  
                 -5.786                    1.045  

Degrees of Freedom: 707 Total (i.e. Null);  706 Residual
Null Deviance:	    941.2 
Residual Deviance: 714 	AIC: 718


$Plots
$Plots$cloglog_linear
Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... lapply -> FUN -> push.vp.viewport -> grid.Call.graphics
Execution halted