Multiple values not getting displayed on multiple input selection in dropdown using r shiny

[ritm]

I have been trying to create a multi input select list/dropdown using r shiny but when i select more than one value from the input,it still shows only the value for the first input selected.

The code is as follows:

knitr::opts_chunk$set(echo = TRUE)
library(shiny)

ui <- fluidPage(
selectInput("Region","Select Region",max_usage_hours_per_region$Region,multiple=TRUE),
tableOutput("table")
)
server <- function(input, output) {
output$table <- renderTable(
max_usage_hours_per_region[max_usage_hours_per_region$Region==input$Region,])}
shinyApp(ui = ui, server = server)

The output is as follows:

[nirgrahamuk]

library(shiny)

(max_usage_hours_per_region <- data.frame(Region=rep(letters[1:3],3),
                                         other_info=1:9))
ui <- fluidPage(
  verbatimTextOutput("peek_at_region"),
  fluidRow(style="display:flex;",
           tableOutput("table_naive"),tableOutput("table_correct")),
  selectInput("Region","Select Region",
              max_usage_hours_per_region$Region,
              multiple=TRUE)
)
server <- function(input, output) {
  
  filtered_table_naive <- reactive({
    req(input$Region)
    max_usage_hours_per_region[max_usage_hours_per_region$Region==input$Region,]
  })
  
  filtered_table_correctly <- reactive({
    req(input$Region)
    max_usage_hours_per_region[max_usage_hours_per_region$Region %in% input$Region,]
  })
  
  output$table_naive <- renderTable(
    req(filtered_table_naive())
  )
  output$table_correct <- renderTable(
    req(filtered_table_correctly())
  )
  
  output$peek_at_region <- renderPrint({
    input$Region
  })
  
  }
shinyApp(ui = ui, server = server)

please note how I use a made up data frame so that my code is runnable.
Hope it helps, and good luck !

[ritm]

Sorry for late reply.Happy new year to you.When i select more than two values from the input,it doesn't show the output for all the values selected in the dropdown.

The code is as follows:

knitr::opts_chunk$set(echo = TRUE)
library(shiny)

ui <- fluidPage(
selectInput("Region","Select Region",max_usage_hours_per_region$Region,multiple=TRUE),
tableOutput("table")
)
server <- function(input, output) {
output$table <- renderTable(
max_usage_hours_per_region[max_usage_hours_per_region$Region==input$Region,])}
shinyApp(ui = ui, server = server)

max_usage_hours_per_region is a dataframe with the following output:-

Region Sum_as_Hours

1 Africa 1156.0833
2 Americas 740.1667
3 APAC 740.2833
4 Europe 1895.2000
5 PDO 1053.3500
6 UK 0.0000

[nirgrahamuk]

@ritm

max_usage_hours_per_region[max_usage_hours_per_region$Region==input$Region,])}

I already answered you that this is wrong, you should use the in operator not the equals operator when you are testing multiple conditions. This is not shiny related, and is general R behaviour.

[ritm]

Thanks a lot.It had skipped my notice.