[Bug]: Bookmarking-related error

[chlebowa]

The following app runs correctly when teal.transform is on main but fails on 898_save_app_stata3@main.
(All other packages on 898_save_app_stata3@main).

app code

options(teal.log_level = "ERROR", teal.show_js_log = FALSE)
options(teal.log_muffle = FALSE)

rm(list =ls())


devtools::load_all("../teal.reporter")
# devtools::load_all("../teal.transform")
devtools::load_all("../teal")
devtools::load_all("../teal.modules.clinical")




# ======

library(nestcolor)

ADSL <- tmc_ex_adsl
ADTTE <- tmc_ex_adtte
ADSL$RACE <- droplevels(ADSL$RACE) %>% with_label("Race")

arm_ref_comp <- list(
  ARM = list(
    ref = "B: Placebo",
    comp = c("A: Drug X", "C: Combination")
  ),
  ARMCD = list(
    ref = "ARM B",
    comp = c("ARM A", "ARM C")
  )
)

app <- init(
  data = cdisc_data(
    ADSL = ADSL,
    ADTTE = ADTTE,
    code = "
      ADSL <- tmc_ex_adsl
      ADTTE <- tmc_ex_adtte
      ADSL$RACE <- droplevels(ADSL$RACE) %>% with_label(\"Race\")
    "
  ),
  modules = modules(
    tm_g_forest_tte(
      label = "Forest Survival",
      dataname = "ADTTE",
      arm_var = choices_selected(
        variable_choices(ADSL, c("ARM", "ARMCD")),
        "ARMCD"
      ),
      arm_ref_comp = arm_ref_comp,
      paramcd = choices_selected(
        value_choices(ADTTE, "PARAMCD", "PARAM"),
        "OS"
      ),
      subgroup_var = choices_selected(
        variable_choices(ADSL, names(ADSL)),
        c("BMRKR2", "SEX")
      ),
      strata_var = choices_selected(
        variable_choices(ADSL, c("STRATA1", "STRATA2")),
        "STRATA2"
      )
    )
  )
)

# ======

runApp(app, launch.browser = TRUE)

Listening on http://127.0.0.1:5301
Initializing reporter_previewer_module
Warning: Error in as.name: invalid data of mode 'character' (too short)
  141: as.name
  140: template_forest_tte [/home/users/chlebowa/NEST/teal.modules.clinical/R/tm_g_forest_tte.R#145]
  139: <reactive:all_q> [/home/users/chlebowa/NEST/teal.modules.clinical/R/tm_g_forest_tte.R#639]
  123: all_q
  122: <reactive>
  106: plot_r
   97: renderUI
   96: func
   83: renderFunc
   82: output$teal-main_ui-root-forest_survival-module-myplot-plot_out_main
    1: runApp
Warning: Error in as.name: invalid data of mode 'character' (too short)
  1: runApp