Recursively updating a module input within the module

I'm creating a module that I want to instantiate with an initial value, but then use what the module itself returns on subsequent uses of the module.

In this dummy example a modal pops up where a slider has a value of 5, but I want the user to be able to move the slider and it "remembers" the users prior selection. Mind you this is just a REPREX I think there's more clever ways to do this, but in my actual app I'm passing in initial data that is manipulated in the module, so I want that updated data to be used when the modal is clicked.... if that makes sense.

Any help on passing reactives around appreciated!!

mod_ui <- function(id) {
    ns <- NS(id)
    actionButton(ns("click_me"), "Open for Slider")
mod_srv <- function(input, output, session, newValue) {
    ns <- session$ns
    observeEvent(input$click_me, {
                title = "This is a modal",
                footer = actionButton(ns("toggle_disable"), "CLOSE MODAL"),
                sliderInput(ns("the_slider"), "Slider", min = 0, max = 10, value = newValue)
    observeEvent(input$toggle_disable, {
ui <- fluidPage(
server <- function(input, output) {
    # initial state of the reactive values
    dataval <- reactiveValues(nV = 5)
    # the module uses dataval$nV to originally set the slider to 5
    # but on subsequent clicks it should "remember" where it was slided to
    temp <- callModule(mod_srv, "module", newValue = dataval$nV)
    # lol this doesn't work
    observe(temp(), {
        dataval$nV <- temp
shinyApp(ui = ui, server = server)

This topic was automatically closed 54 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.