function“eval_code” in teal : Cannot merge at least two dataset extracts

shiny
1

Hi Community,

How can I solve this issue when running the sample code as below?

you can download it from the website, thanks so much.

警告: Error in h: 在为函数“eval_code”选择方法时计算参数“object”时出错：在为函数“eval_code”选择方法时计算参数“code”时出错：Cannot merge at least two dataset extracts. Make sure all datasets used for merging have appropriate keys.

# Source: https://insightsengineering.github.io/teal.modules.clinical/main/reference/tm_t_events.html
# Creating teal app using a module from teal.modules.clinical R package.
# Teal have more than 50+ modules readily available teal modules for your analysis.

library(teal.modules.clinical)
library(dplyr)
library(scda) 
# synthetic cdisc archive data: a package containing sample data in the ADaM format

# adsl <- synthetic_cdisc_dataset("latest", "adsl")
# adae <- synthetic_cdisc_dataset("latest", "adae")

# Create join keys
join_keys <- join_keys(
  join_key("ADSL", "ADTTE", c("STUDYID" = "STUDYID", "USUBJID" = "USUBJID"))
)

# Initialize data with join keys and merge datasets
data <- cdisc_data(join_keys = join_keys)

data <- within(data, {
  ADSL <- adsl
  ADAE <- adae
})

app <- teal::init(
  data =teal_data (
    ADSL = adsl,
    ADAE = adae
  ),
  modules = list(
    tm_t_events(
      label = "Adverse Event Table",
      dataname = "ADAE",
      arm_var = choices_selected(c("ARM", "ARMCD"), "ARM"),
      llt = choices_selected(
        choices = variable_choices(adae, c("AETERM", "AEDECOD")),
        selected = c("AEDECOD")
      ),
      hlt = choices_selected(
        choices = variable_choices(adae, c("AEBODSYS", "AESOC")),
        selected = "AEBODSYS"
      ),
      add_total = TRUE,
      event_type = "adverse event"
    )
  ),
  header = "My Teal App 2"
)

if (interactive()) {
  runApp(app)
}