Get an infoBox to update automatically from selectInput

[fitzer23]

Have an info box that will update nationality based on the selected input but trying to get it to update with the total amount that the nationality has appeared.

Have tried adding table() to produce the added amount but didn't work.

'output$progressBox <- renderInfoBox({
    infoBox(
      paste(input$Nationality), paste("Total", table(ngo$Victim.Nationality)), icon = icon("user-friends"),
      color = "purple"
    )
  })'

I want that when a nationality is selected from drop down list it will update nationality and total amount of occurrences

[pieterjanvc]

Hi,

We're happy to help you, but in order to look in more detail at the issue, you'll need to provide us with code that recreates the issue. This is especially important in Shiny since the reactive environments connect different parts of the code and bugs travel between them.

Look at the attached post how to create a minimal reproducible example:

Shiny debugging and reprex guide

Shiny issues can be challenging to resolve relative to other problems with your code or statistical methods. Shiny apps are often large, complex projects with interacting files. When seeking help from others it is considered polite to: First, do your best to work through RStudio's debugging tools to diagnose your issue on your own. Often those shiny logs and tracebacks are useful to others trying to help out. Second, strive to minimize the effort required to replicate your issue. You can do this with a reproducible example ("reprex"). Shiny Debugging Errors in Shiny code can be difficult to track down. If you don't know where your problem is coming from, you can track it down with some o…

Good luck
PJ

[fitzer23]

A sample of the data set.

Victim Nationality	Victim Age
United Kingdom	18
US	22
Uzbekistan	15
Bangladesh	18
US	25
US	18
United Kingdom	15
Bangladesh	17
US	15
Uzbekistan	19

Sample piece of the code.

ui <- dashboardPage(
dashboardBody(
fluidRow(
                box( width = 4, solidHeader = TRUE, status = "primary",
                  selectInput("Nationality", "Choose victim nationality: ",
                              list("AF", "AL", "Asian", "Bangladesh", "BD", "BF", "BG", "BO", "Brazilian", "BY", "CD", "Chinese",
                                   "CI", "CN", "CO", "Czech Republic", "Eastern Europe", "ER", "GH", "GN", "GOA", "GW", "HD", "ID", "IN", 
                                   "India", "Indian", "Jordan", "KG", "KH", "KR", "KZ", "LA", "LK", "Lybanese", "MD", "MG", "ML", "MM",
                                   "MX", "Myanmar", "NE", "Nepal", "Nepali", "NG", "Nigeria", "NP", "Oman", "PH", "Polish", "Qatar", "RO", 
                                   "Romanian", "Russian", "SL", "SN", "Spain", "Sudan", "SV", "Syrian", "TH", "TJ", "TM", "UA", "UG", 
                                   "United Kingdom", "US", "UZ", "Uzbekistan", "VN", "ZZ")
                  ),
infoBoxOutput("progressBox")
))))

server <- function(input, output) {
utput$progressBox <- renderInfoBox({
    infoBox(
      paste(input$Nationality), paste("Total", table(ngo$Victim.Nationality)), icon = icon("user-friends"),
      color = "purple"
    )
  })
}

So when the user selects a nationality out of the drop down menu it will update the infoBox to what country it is and the amount of time that country occurs. I think thats what you need, if need anything let me know thanks.

[pieterjanvc]

Hi,

Here is my approach:

library("shiny")
library("shinydashboard")
library("dplyr")

ui <- dashboardPage(
  dashboardHeader(), #needed to run
  dashboardSidebar(), #needed to run
  dashboardBody(
    fluidRow(
      box(solidHeader = TRUE, status = "primary",
           selectInput("Nationality", "Choose victim nationality: ", choices = ""),
           infoBoxOutput("progressBox", width = NULL) #needs to have width = NULL to display properly
      ))))

server <- function(input, output, session) { #need to add session to update selectInput
  
  #Sample dataset
  ngo = data.frame(
    Victim.Nationality = c("United Kingdom", "US", "Uzbekistan", "Bangladesh", "US"),
    Victim.Age = c(18,22,15,18,25))
  
  #Tip for selectInput options: use updatSelectInput to load names from file
  nationalities = c("AF", "AL", "Asian", "Bangladesh", "BD", "BF", "BG", "BO", "Brazilian", "BY", "CD", "Chinese",
                       "CI", "CN", "CO", "Czech Republic", "Eastern Europe", "ER", "GH", "GN", "GOA", "GW", "HD", "ID", "IN", 
                       "India", "Indian", "Jordan", "KG", "KH", "KR", "KZ", "LA", "LK", "Lybanese", "MD", "MG", "ML", "MM",
                       "MX", "Myanmar", "NE", "Nepal", "Nepali", "NG", "Nigeria", "NP", "Oman", "PH", "Polish", "Qatar", "RO", 
                       "Romanian", "Russian", "SL", "SN", "Spain", "Sudan", "SV", "Syrian", "TH", "TJ", "TM", "UA", "UG", 
                       "United Kingdom", "US", "UZ", "Uzbekistan", "VN", "ZZ")
  #OR ...
  nationalities = sort(unique(ngo$Victim.Nationality))
    
  updateSelectInput(session, "Nationality", choices = nationalities) #update the input choices
  
  output$progressBox <- renderInfoBox({
    infoBox(
      input$Nationality, 
      #You needed to calculate the number of times the nationality appeared (several ways to do it)
      value = paste("Total", nrow(ngo %>% filter(Victim.Nationality == input$Nationality)),
                    collapse = " "), 
      icon = icon("user-friends"),
      color = "purple",
      fill = T
    )
  })

  }

shinyApp(ui, server)

Few notes:

• Please test your code and add packages used before submitting it as I had to add stuff before I could run it successfully
• You can use the updateSelectInput to add choices to inputs from the server side
• The infoBoxOutput needed width = NULL to display properly

Hope it works now!
PJ

[fitzer23]

Thanks PJ, works perfectly