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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: tm_a_gee
> ### Title: teal Module: Generalized Estimating Equations (GEE) analysis
> ### Aliases: tm_a_gee
> 
> ### ** Examples
> 
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> data <- teal_data()
> data <- within(data, {
+   ADSL <- tmc_ex_adsl
+   ADQS <- tmc_ex_adqs %>%
+     filter(ABLFL != "Y" & ABLFL2 != "Y") %>%
+     mutate(
+       AVISIT = as.factor(AVISIT),
+       AVISITN = rank(AVISITN) %>%
+         as.factor() %>%
+         as.numeric() %>%
+         as.factor(),
+       AVALBIN = AVAL < 50 # Just as an example to get a binary endpoint.
+     ) %>%
+     droplevels()
+ })
> datanames <- c("ADSL", "ADQS")
> datanames(data) <- datanames
Warning: `datanames<-()` was deprecated in teal.data 0.7.0.
ℹ invalid to use `datanames()<-` or `names()<-` on an object of class
  `teal_data`. See ?names.teal_data
> join_keys(data) <- default_cdisc_join_keys[datanames]
> 
> app <- init(
+   data = data,
+   modules = modules(
+     tm_a_gee(
+       label = "GEE",
+       dataname = "ADQS",
+       aval_var = choices_selected("AVALBIN", fixed = TRUE),
+       id_var = choices_selected(c("USUBJID", "SUBJID"), "USUBJID"),
+       arm_var = choices_selected(c("ARM", "ARMCD"), "ARM"),
+       visit_var = choices_selected(c("AVISIT", "AVISITN"), "AVISIT"),
+       paramcd = choices_selected(
+         choices = value_choices(data[["ADQS"]], "PARAMCD", "PARAM"),
+         selected = "FKSI-FWB"
+       ),
+       cov_var = choices_selected(c("BASE", "AGE", "SEX", "BASE:AVISIT"), NULL)
+     )
+   )
+ )
Initializing tm_a_gee (prototype)
Error in as.list(data@env) : 
  no slot of name "env" for this object of class "teal_data"
Calls: init -> create_app_id -> as.list
Execution halted