CODEWITHSUNDEEP
rshinyreactiveselectinput
Haribo
Haribo

Reputation: 2236

Updating selectInput in shiny app based on user selection

I have a simple shiny app with 2 select input :

shinyApp(
  ui = fluidPage(
    selectInput("Params1", "Parameter 1",choices=c('Significant wave height [m]' = 'Significant wave height',
                                                   'Peak period [s]' = 'Peak period', 
                                                   'Wind speed at 10m [m/s]' = 'Wind speed at 10m', 
                                                   'Surface current speed [m/s]' = 'Surface current speed'),selected = 'Significant wave height')
    ,selectInput("Params2", "Parameter 2", choices=c('Significant wave height [m]' = 'Significant wave height',
                                                     'Peak period [s]' = 'Peak period', 
                                                     'Wind speed at 10m [m/s]' = 'Wind speed at 10m', 
                                                     'Surface current speed [m/s]' = 'Surface current speed'),selected = 'Peak period')
  ),
  server = function(input, output,session) {
    observeEvent(input$Params1, {
      available_choices <- setdiff(c('Significant wave height [m]', 'Peak period [s]', 'Wind speed at 10m [m/s]', 'Surface current speed [m/s]'), input$Params1)
      updateSelectInput(session, "Params2", choices = available_choices, selected = input$Params2)
    })
    
    observeEvent(input$Params2, {
      available_choices <- setdiff(c('Significant wave height [m]', 'Peak period [s]', 'Wind speed at 10m [m/s]', 'Surface current speed [m/s]'), input$Params2)
      updateSelectInput(session, "Params1", choices = available_choices, selected = input$Params1)
    })
  }
)

I'm expecting upon app initiation, both select inputs appears with the selected choice, but they are not ! Am I missing something here ?!!

Upvotes: 0

Views: 57

Answers (2)

Jan
Jan

Reputation: 9308

You initialize both selectInput with choices which are named, e.g. 'Peak period [s]' = 'Peak period'. From ?selectInput:

choices: List of values to select from. If elements of the list are named, then that name — rather than the value — is displayed to the user. ...

Now when the app is started, both of your observeEvent are firing, this is because they have ignoreInit = FALSE by default, from ?observeEvent:

ignoreInit: If TRUE, then, when this observeEvent is first created/initialized, ignore the handlerExpr (the second argument), whether it is otherwise supposed to run or not. The default is FALSE. See Details.

In these observeEvent you update both selectInput with e.g. input$Params2, but input$Params2 is the displayed value and hence can't match the available choices, that's why it comes to an empty field, the value which shall be set as selected is not among the available choices. However, once one ran through both observeEvent it will work because then you have updated the choices and the updated versions do not have names and carry directly the unit signs.

Below you find a working version of your code, I just used a list instead of a vector and so the structure keeps preserved.

library(shiny)

chc <- list('Significant wave height [m]' = 'Significant wave height',
            'Peak period [s]' = 'Peak period',
            'Wind speed at 10m [m/s]' = 'Wind speed at 10m',
            'Surface current speed [m/s]' = 'Surface current speed')

ui <- fluidPage(
  selectInput(
    "Params1",
    "Parameter 1",
    choices = chc,
    selected = 'Significant wave height'
  )
  ,
  selectInput(
    "Params2",
    "Parameter 2",
    choices = chc,
    selected = 'Peak period'
  )
)

server <- function(input, output, session) {
  observeEvent(input$Params1, {
    available_choices <- setdiff(chc, input$Params1)
    updateSelectInput(session,
                      "Params2",
                      choices = available_choices,
                      selected = input$Params2)
  })
  
  observeEvent(input$Params2, {
    available_choices <- setdiff(chc, input$Params2)
    updateSelectInput(session,
                      "Params1",
                      choices = available_choices,
                      selected = input$Params1)
  })
}

shinyApp(ui, server)

Upvotes: 2

Ifeanyi Idiaye
Ifeanyi Idiaye

Reputation: 1116

Here is the corrected version of your code:

library(shiny)

  ui = fluidPage(
    selectInput("Params1", "Parameter 1",choices=c('Significant wave height [m]',
                                                   'Peak period [s]', 
                                                   'Wind speed at 10m [m/s]', 
                                                   'Surface current speed [m/s]'),selected = 'Significant wave height [m]')
    ,selectInput("Params2", "Parameter 2", choices=c('Significant wave height [m]',
                                                     'Peak period [s]', 
                                                     'Wind speed at 10m [m/s]', 
                                                     'Surface current speed [m/s]'),selected = 'Peak period [s]')
  )
  server = function(input, output,session) {
    observeEvent(input$Params1, {
      available_choices <- setdiff(c('Significant wave height [m]', 'Peak period [s]', 'Wind speed at 10m [m/s]', 'Surface current speed [m/s]'), input$Params1)
      updateSelectInput(session, "Params2", choices = available_choices, selected = input$Params2)
    })
    
    observeEvent(input$Params2, {
      available_choices <- setdiff(c('Significant wave height [m]', 'Peak period [s]', 'Wind speed at 10m [m/s]', 'Surface current speed [m/s]'), input$Params2)
      updateSelectInput(session, "Params1", choices = available_choices, selected = input$Params1)
    })
  }

  shinyApp(ui,server)

In the selectInput() function, you do not need to assign values to your choices yet. That is why the selected choice was not being displayed. You will only do that in the server side of the code when you want to make use of the choices by doing something like this

switch(inputs$params1,
'Significant wave height [m]' = 'Significant wave height',
'Peak period [s]' = 'Peak period', 
'Wind speed at 10m [m/s]' = 'Wind speed at 10m', 
'Surface current speed [m/s]' = 'Surface current speed')

The above code will enable you to select each input and use its value in your application.

I hope this helps!

Upvotes: 0

Related Questions