Vfrdtyky

I am trying to house all of my filters inside a modal (for appearance purposes) but it isn't acting as I would expect.

1. Initially the graph doesn't take it's value until the modal is called


2. The modal doesn't save the current state so when I open the modal again, all inputs go back to their original starting values

Below is a sample code that compares the two methods (normal filter in sidebar and filter in modal). Play around with the modal and see:

rm(list=ls())



library(shiny)

library (shinydashboard)



header <- dashboardHeader(title = "Test")



sidebar <- dashboardSidebar(

  sliderInput(inputId = "bins1",

              label = "Number of bins:",

              min = 1,

              max = 50,

              value = 30),

  actionButton("filterBT", "Filters")

)



body <- dashboardBody(

  fluidRow(

      box(

        title = "Graph using sidebar filter", status = "primary", solidHeader = TRUE, width = 6,

        plotOutput("distPlot1")

      ),

      box(

        title = "Graph using button filter", status = "primary", solidHeader = TRUE, width = 6,

        plotOutput("distPlot2")

      )

  )

)



ui <- dashboardPage(header, sidebar, body)





#######################################/SERVER/####################################

server <- function(input, output, session) {



  myModal <- function() {

    div(id = "test",

        modalDialog(uiOutput("Network"),

                    br(),

                    br(),

                    easyClose = TRUE, title = "Filter Selections")

    )

  }



  # open modal on button click

  observeEvent(input$filterBT,

               ignoreNULL = TRUE,   # Show modal on start up

               showModal(myModal())

  )



  output$Network <- renderUI ({

    sliderInput(inputId = "bins2",

                label = "Number of bins:",

                min = 1,

                max = 50,

                value = 30)

  })



  output$distPlot1 <- renderPlot({



    x    <- faithful$waiting

    bins <- seq(min(x), max(x), length.out = input$bins1 + 1)



    hist(x, breaks = bins, col = "#75AADB", border = "white",

         xlab = "Waiting time to next eruption (in mins)",

         main = "Histogram of waiting times")



  })



  output$distPlot2 <- renderPlot({



    x    <- faithful$waiting

    bins <- seq(min(x), max(x), length.out = input$bins2 + 1)



    hist(x, breaks = bins, col = "#75AADB", border = "white",

         xlab = "Waiting time to next eruption (in mins)",

         main = "Histogram of waiting times")



  })





}



shinyApp(ui, server)

1. Initially the graph on the right doesn't appear until you open the "Filter" button


2. If you select anything but 30, close out of the modal, open the modal back up. It goes back to the default of 30.