ui.R

shinyUI(fluidPage(
  titlePanel("Malaria incidence Zanzibar"),
  
  sidebarLayout(
    sidebarPanel(
    
      selectInput("season", 
                  label = "Choose season",
                  choices = c("Both","Wet","Dry")),
      
      selectInput("travel", 
                  label = "Choose travel assumption",
                  choices = c("Travel history",
                              "Time kernal",
                              "No time"))
      ),
    
    mainPanel(plotOutput("map"))
  )
))