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)
}