How to create a list from subsets of a CSV file

Question

I want to make a list for a selectInput from a CSV file, but from a subset made based on two previous selectInputs. This means that on my app:

the user chooses a species name from a list

radioButtons("species", "Which species are you workingwith?", list("Caretta caretta"="Cc", "Chelonia mydas"="Cm", "Dermochelys coriacea"="Dc", "Eretmochelys imbricata"="Ei", "Lepidochelys kempii"="Lk", "Lepidochelys olivacea"="Lo", "Natator depressus"="Nd"))
the user chooses a nesting area (country) from a list based on the species:

conditionalPanel( condition="input.country_type=='List' & input.species=='Cc'", selectInput("country", "Country:", choices=subset(NestingArea2, Sp=='Cc')$Country)),
```
       conditionalPanel(
         condition="input.country_type=='List' & input.species=='Cm'",
         selectInput("country", "Country:",
                     choices=subset(NestingArea2, Sp=='Cm')$Country)),
       ......
```
and then the user must choose a RMU from a list, which is different for each "species" and "country". I have tried this and it didn't work:

selectInput("rmu", "RMU:", choices=subset( NestingArea2, Sp=='input.species', Country=='input.country')$RMU)

The .csv (NestingArea2) file has 3 columns as follows: Sp | Country | RMU

I could do what I've done on (2), but since there are many countries, I am searching for something easier.

Sp=='input.species' & Country=='input.country'? note the ampersand. — BrodieG
– BrodieG, Commented Feb 8, 2014 at 20:43

Vincent · Accepted Answer · 2014-02-08 21:39:36Z

1

Creating a conditionalPanel and selectInput for each country|RMU separately will be very tedious and (coding) error prone. What you are looking for is a dynamic UI where the choices in a selectInput depend on previous choices.

I haven't tested this because I don't have your data but the following should get you most of the way there. Put the two outputs below in server.R. Then put the uiOutputs in ui.R (note: add comma's as needed). Before even doing that however, make sure to read the Shiny documentation on dynamic ui linked above.

Put in server.R

output$countrySelect <- renderUI({
  countryChoices <- subset(NestingArea2, Sp==input$species)$Country)
  selectInput("country", "Country:", choices=countryChoices)
})

output$rmuSelect <- renderUI({
  rmuChoices <- subset(NestingArea2, Sp==input$species, Country==input$country)$RMU
  selectInput("rmu", "RMU:", choices=rmuChoices)
})

Put in ui.R

uiOutput('countrySelect'),
uiOutput('rmuSelect')

edited Feb 8, 2014 at 21:39

answered Feb 8, 2014 at 21:05

Vincent

5,2893 gold badges33 silver badges40 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

user3224026 Over a year ago

Hello Vincent, Thank you very much! Actually it worked for the country list, but it is not working for the RMU list. Any idea why can it be?

Vincent Over a year ago

I think the code should probably be (i.e., replace the , by a &): subset(NestingArea2, Sp==input$species & Country==input$country)$RMU

user3224026 Over a year ago

Good morning, I had tried that, but it didn't work (maybe I did smthg wrong...). It works perfectly, thanks!

Collectives™ on Stack Overflow

How to create a list from subsets of a CSV file

1 Answer 1

Put in server.R

Put in ui.R

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Put in server.R

Put in ui.R

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related