How do I save input values inside shinyglide?

Question

I have this code:

library(shiny)
library(shinyglide)

ui <- fixedPage(
  
  titlePanel("shinyglide modal example"),
  
  actionButton(
    inputId = "actionlatex1",
    label = "click"
  ),
  
  sidebarLayout(
    sidebarPanel(
      numericInput("mean", "Mean", value = 0),
      numericInput("sd", "Standard deviation", value = 1, min = 0),
      numericInput("n", "n", value = 100, min = 1),
      p(
        tags$a(
          href = "https://github.com/juba/shinyglide/blob/master/inst/examples/03_modal/app.R",
          "Source code on GitHub"
        )
      )
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
  
)

server <- function(input, output, session) {
    
    modal_controls <- glideControls(
      list(
        prevButton(),
        firstButton(
          class = "btn btn-danger",
          `data-dismiss` = "modal",
          "No, thanks!"
        )
      ),
      list(
        nextButton(),
        lastButton(
          class = "btn btn-success",
          `id` = "save",
          `data-dismiss` = "modal",
          "Done"
        )
      )
    )
  
  observeEvent(input$actionlatex1, {
    
    showModal(
      
      modalDialog(
        
        title = "Startup assistant",
        easyClose = FALSE,
        footer = NULL,
        
        glide(
          
          custom_controls = modal_controls,
          
          screen(
            next_label = 'Yes, please ! <span class="glyphicon glyphicon-chevron-right" aria-hidden="true"></span>',
            p("Let's initialize some values, would you ?")
          ),
          
          screen(
            p("First, please select a mean value"),
            numericInput("mean_modal", "Mean", value = 0)
          ),
          
          screen(
            p("Next, please select a standard deviation value"),
            numericInput("sd_modal", "Standard deviation", value = 1, min = 0)
          ),
          
          screen(
            p("Thanks, we're all set !")
          )
        
        )
          
      )
      
    )
    
  })
  
  output$plot <- renderPlot({
    hist(rnorm(req(input$n), req(input$mean), req(input$sd)),
         main = "Such wow",
         xlab = "Wonderful x values",
         ylab = "Incredible frequencies")
  })
  
  observe({
    updateNumericInput(session, "mean_modal", value = input$mean)
    updateNumericInput(session, "sd_modal", value = input$sd)
  })
  
}

shinyApp(ui, server)
 

I would like to store the values of the inputs (mean, sd and n) so that when I reopen and close the modal the values remain there when I modify them.

I tried using a javascript but it got confusing, so I decided to remove it from the current code. I also tried to create a modal with jquery, but I didn't succeed either. I need to save the R inputs when closing and reopening the modal.

Answer 1

You can use reactiveValues to initialize the inputs once the modal is shown:

library(shiny)
library(shinyglide)

ui <- fixedPage(
  
  titlePanel("shinyglide modal example"),
  
  actionButton(
    inputId = "actionlatex1",
    label = "click"
  ),
  
  sidebarLayout(
    sidebarPanel(
      numericInput("mean", "Mean", value = 0),
      numericInput("sd", "Standard deviation", value = 1, min = 0),
      numericInput("n", "n", value = 100, min = 1),
      p(
        tags$a(
          href = "https://github.com/juba/shinyglide/blob/master/inst/examples/03_modal/app.R",
          "Source code on GitHub"
        )
      )
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
  
)

server <- function(input, output, session) {
  
  modal_controls <- glideControls(
    list(
      prevButton(),
      firstButton(
        class = "btn btn-danger",
        `data-dismiss` = "modal",
        "No, thanks!"
      )
    ),
    list(
      nextButton(),
      lastButton(
        class = "btn btn-success",
        `id` = "save",
        `data-dismiss` = "modal",
        "Done"
      )
    )
  )
  
  modal_inputs <- reactiveValues(mean_modal = 0L, sd_modal = 1L)
  
  observe({
      lapply(names(modal_inputs), function(x){
        if(!is.null(input[[x]])){
          modal_inputs[[x]] <- input[[x]]
        }
      })
  })
  
  observeEvent(input$actionlatex1, {
    
    showModal(
      
      modalDialog(
        
        title = "Startup assistant",
        easyClose = FALSE,
        footer = NULL,
        
        glide(
          
          custom_controls = modal_controls,
          
          screen(
            next_label = 'Yes, please ! <span class="glyphicon glyphicon-chevron-right" aria-hidden="true"></span>',
            p("Let's initialize some values, would you ?")
          ),
          
          screen(
            p("First, please select a mean value"),
            numericInput("mean_modal", "Mean", value = modal_inputs$mean_modal)
          ),
          
          screen(
            p("Next, please select a standard deviation value"),
            numericInput("sd_modal", "Standard deviation", value = modal_inputs$sd_modal, min = 0)
          ),
          
          screen(
            p("Thanks, we're all set !")
          )
          
        )
        
      )
      
    )
    
  })
  
  output$plot <- renderPlot({
    hist(rnorm(req(input$n), req(input$mean), req(input$sd)),
         main = "Such wow",
         xlab = "Wonderful x values",
         ylab = "Incredible frequencies")
  })
  
  observe({
    updateNumericInput(session, "mean_modal", value = input$mean)
    updateNumericInput(session, "sd_modal", value = input$sd)
  })
  
}

shinyApp(ui, server)