Plot 70a uses HND_hhs -- I assume it should use data for other locations also? about hhs_dashboard HOT 4 CLOSED

else if (input$hhs_question == "70a. What is your households’ average monthly income from all activities, including salaried and non-salaried labor?") {
         ### Currency conversions (USD)
         if (input$Country == "IDN") {
            conversion <- quantmod::getQuote("IDRUSD=X")$Last
         }
         else if (input$Country == "HND") {
            conversion <- quantmod::getQuote("HNLUSD=X")$Last
         }
         else if (input$Country == "PHL") {
            conversion <- quantmod::getQuote("PHPUSD=X")$Last
         }
         else if (input$Country == "MOZ") {
            conversion <- quantmod::getQuote("MZNUSD=X")$Last
         }
         else if (input$Country == "BRA") {
            conversion <- quantmod::getQuote("BRLUSD=X")$Last
         }
         else if (input$Country == "FSM") {
            conversion <- getQuote("USDUSD=X")$Last
         }
         else if (input$Country == "PLW") {
            conversion <- getQuote("USDUSD=X")$Last
         }
         
         ### Q70 What is your households' average monthly income from all activities, including salaried and non-salaried labor? ####
         
         hhs_Q70 <- HND_hhs #%>%
                    # filter (between(
                     #        as.numeric(as.character(`70_hh_average_income`)), 
                    #          10, 1.00e+20)) %>%
                      #           droplevels()