Error in `aet01_lyt(arm_var = arm_var, lbl_overall = lbl_overall, anl_vars = anl_vars, 
    anl_lbls = anl_lbls, lbl_vars = lbl_vars)`: non-interactive browser() -- left over from debugging?

test_that("aet01 can handle all NA values", {
res <- expect_silent(run(aet01, proc_data, prune_0 = TRUE))
test_that("aet01 can handle some NA values", {
new_aesdth <- c(NA, "", as.character(syn_data$adae$AESDTH[-c(1, 2)]))
new_aeser <- c(NA, "", as.character(syn_data$adae$AESER[-c(1, 2)]))
test_that("aet01 can use custom anl_vars", {
res <- expect_silent(run(aet01, proc_data, anl_vars = list(safety_var = "FATAL")))
test_that("aet01 fails on incomplete data input", {
test_that("aet01 can use custom medconcept_var", {
proc_data$adae$SMQ01 <- with_label(proc_data$adae$SMQ01NAM != "", "SMQ 01")
"RELSER", "WD", "DSM", "REL", "RELWD", "RELDSM", "SEV"
test_that("aet01 can conditionally show the number of withdrawal", {
expect_silent(res <- run(aet01, syn_data, arm_var = "ARM", show_wd = FALSE))

"aet01 can conditionally show the number of withdrawal"

Error in `(function (adam_db, arm_var = "ACTARM", row_split_var = "AEBODSYS", 
    lbl_overall = NULL, summary_labels = list(all = aet02_label, 
        TOTAL = c(nonunique = "Overall total number of events")), 
    ...) 
{
    assert_all_tablenames(adam_db, "adsl", "adae")
    assert_string(arm_var)
    assert_character(row_split_var, null.ok = TRUE)
    assert_string(lbl_overall, null.ok = TRUE)
    assert_valid_variable(adam_db$adsl, c("USUBJID", arm_var), 
        types = list(c("character", "factor")))
    assert_valid_variable(adam_db$adae, c(arm_var, row_split_var, 
        "AEDECOD"), types = list(c("character", "factor")))
    assert_valid_variable(adam_db$adae, "USUBJID", empty_ok = TRUE, 
        types = list(c("character", "factor")))
    assert_valid_var_pair(adam_db$adsl, adam_db$adae, arm_var)
    assert_list(summary_labels, null.ok = TRUE)
    assert_subset(names(summary_labels), c("all", "TOTAL", row_split_var))
    assert_subset(unique(unlist(lapply(summary_labels, names))), 
        c("unique", "nonunique", "unique_count"))
    summary_labels <- expand_list(summary_labels, c("TOTAL", 
        row_split_var))
    lbl_overall <- render_safe(lbl_overall)
    lbl_row_split <- var_labels_for(adam_db$adae, row_split_var)
    lbl_aedecod <- var_labels_for(adam_db$adae, "AEDECOD")
    browser()
    lyt <- occurrence_lyt(arm_var = arm_var, lbl_overall = lbl_overall, 
        row_split_var = row_split_var, lbl_row_split = lbl_row_split, 
        medname_var = "AEDECOD", lbl_medname_var = lbl_aedecod, 
        summary_labels = summary_labels, count_by = NULL)
    tbl <- build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl)
    tbl
})(adam_db = adam_db, prune_0 = prune_0)`: non-interactive browser() -- left over from debugging?