options(teal.log_level="ERROR",teal.show_js_log=TRUE,# teal.bs_theme = bslib::bs_theme(version = 5),shiny.bookmarkStore="server")pkgload::load_all("teal")tm_decorated_plot<-function(label="module",transformators=list(),decorators=list(),datanames="all") {checkmate::assert_list(decorators,"teal_transform_module")  module(label=label,ui=function(id,decorators) {ns<- NS(id)      div(        selectInput(ns("dataname"),label="select dataname",choices=NULL,multiple=TRUE),        selectInput(ns("x"),label="select x",choices=NULL,multiple=TRUE),        selectInput(ns("y"),label="select y",choices=NULL,multiple=TRUE),        ui_transform_teal_data(ns("decorate"),transformators=decorators),        plotOutput(ns("plot")),        verbatimTextOutput(ns("text"))      )    },server=function(id,data,decorators) {      moduleServer(id,function(input,output,session) {        observeEvent(data(), {dataname<-if (length(input$dataname))input$datanameelse names(data())[1]          updateSelectInput(inputId="dataname",choices= names(data()),selected=dataname)        })        observeEvent(input$dataname, {          req(input$dataname)          updateSelectInput(inputId="x",choices= colnames(data()[[input$dataname]]))          updateSelectInput(inputId="y",choices= colnames(data()[[input$dataname]]))        })dataname<- reactive(req(input$dataname))x<- reactive({          req(input$x,input$x%in% colnames(data()[[dataname()]]))input$x        })y<- reactive({          req(input$y,input$y%in% colnames(data()[[dataname()]]))input$y        })plot_data<- reactive({# todo: make sure it triggers once on init#       and once on change of its input and once on change in previous stages          req(dataname(), x(), y())          Sys.sleep(5)# to mimic relatively long computation          within(data(),            {plot<-ggplot2::ggplot(dataname,ggplot2::aes(x=x,y=y))+ggplot2::geom_point()            },dataname= as.name(dataname()),x= as.name(x()),y= as.name(y())          )        })plot_data_decorated_no_print<- srv_transform_teal_data("decorate",data=plot_data,transformators=decorators        )plot_data_decorated<- reactive(          within(req(plot_data_decorated_no_print()),expr=plot)        )plot_r<- reactive({          plot_data_decorated()[["plot"]]        })output$plot<- renderPlot(plot_r())output$text<- renderText({teal.code::get_code(req(plot_data_decorated()))        })      })    },ui_args=list(decorators=decorators),server_args=list(decorators=decorators),datanames=datanames,transformators=transformators  )}make_data<-function(datanames= c("ADSL","ADTTE")) {data_obj<-teal.data::teal_data()if ("ADSL"%in%datanames) {data_obj<- within(data_obj,ADSL<-teal.data::rADSL)  }if ("ADTTE"%in%datanames) {data_obj<- within(data_obj,ADTTE<-teal.data::rADTTE)  }  join_keys(data_obj)<-default_cdisc_join_keys[datanames]data_obj}data<- teal_data_module(once=FALSE,ui=function(id) {ns<- NS(id)    tagList(      selectizeInput(        ns("errortype"),label="Error Type",choices= c("ok","insufficient datasets","no data","qenv.error","error in reactive","validate error","silent.shiny.error","not a reactive"        )      )    )  },server=function(id,...) {    moduleServer(id,function(input,output,session) {logger::log_trace("example_module_transform2 initializing.")      reactive({switch(input$errortype,ok= make_data(),`insufficient datasets`= make_data(datanames="ADSL"),`no data`= teal_data(),qenv.error= within(data(), stop("\nthis is qenv.error in teal_data_module\n")),`error in reactive`= stop("\nerror in a reactive in teal_data_module\n"),`validate error`= validate(need(FALSE,"\nvalidate error in teal_data_module\n")),`silent.shiny.error`= req(FALSE)        )      })    })  })trans<- teal_transform_module(ui=function(id) {ns<- NS(id)    tagList(      selectizeInput(        ns("errortype"),label="Error Type",choices= c("ok","insufficient datasets","no data","qenv.error","error in reactive","validate error","silent.shiny.error","not a reactive"        )      )    )  },server=function(id,data) {    moduleServer(id,function(input,output,session) {logger::log_trace("example_module_transform2 initializing.")# to check if data with error causes problemsdata2<- reactive(data())data3<- eventReactive(data2(), data2())      observeEvent(data3(), {# do nothing      })      reactive({# notes: make sure it:#        - triggers once on init#        - once on change of its input#        - once on change in data inputnew_data<-switch(input$errortype,ok= data3(),`insufficient datasets`= data3()["ADSL"],`no data`= teal_data(),qenv.error= within(teal_data(), stop("\nthis is qenv.error in teal_transform_module\n")),`error in reactive`= stop("\nerror in a reactive in teal_transform_module\n"),`validate error`= validate(need(FALSE,"\nvalidate error in teal_transform_module\n")),`silent.shiny.error`= req(FALSE)        )new_data      })    })  })trans_empty<- teal_transform_module(server=function(id,data) {    moduleServer(id,function(input,output,session) {      reactive({        validate(need(nrow(data()$ADSL)>250,"ADSL needs 250 rows"))        data()      })    })  })decor<- teal_transform_module(label="X-axis decorator",ui=function(id) {ns<- NS(id)    tagList(      selectizeInput(        ns("action"),label="Action type",choices= c("nothing","decorate","no data","qenv.error","error in reactive","validate error","silent.shiny.error","not a reactive"        )      )    )  },server=function(id,data) {    moduleServer(id,function(input,output,session) {logger::log_trace("example_module_transform2 initializing.")      reactive({switch(input$action,nothing= data(),`decorate`= data()|> within(plot<-plot+ggplot2::ggtitle("Decorated Title")),`no data`= teal_data(),qenv.error= within(teal_data(), stop("\nthis is qenv.error in teal_transform_module\n")),`error in reactive`= stop("\nerror in a reactive in teal_transform_module\n"),`validate error`= validate(need(FALSE,"\nvalidate error in teal_transform_module\n")),`silent.shiny.error`= req(FALSE)        )      })    })  })app<-teal::init(data=data,modules= modules(    modules(label="first tab",      tm_decorated_plot("mod-2",transformators=list(trans,trans,trans_empty),decorators=list(decor,decor),datanames= c("ADSL","ADTTE")      ),      example_module()    )  ),filter= teal_slices(    teal_slice("ADSL","SEX"),    teal_slice("ADSL","AGE",selected= c(18L,65L)),    teal_slice("ADTTE","PARAMCD",selected="CRSD"),include_varnames=list(ADSL= c("SEX","AGE")    )  ))runApp(app)