title: Creating depandant Select Input in Shiny R
body: <p>I am new in R trying to accomplish following functionality in r 
  I created a data frame book3 </p>
  
  <pre><code>Region&lt;- c("Americas", "Asia Pacific","Asia Pacific", "EMEA", "EMEA")
  
  
  Country&lt;- c("Mexico", "China","India", "Germany", "Spain" )
  
  Rating&lt;- c(5,3,3,2,4)
  
  book3&lt;- data.frame(Region, Country, Rating)
  </code></pre>
  
  <p>I want to pull Region and country which will be defendant. I am trying using this code </p>
  
  <p>ui.R</p>
  
  <pre><code>library(shiny)
  shinyUI(fluidPage(
  titlePanel("Test Dashboard "),
  sidebarLayout(
  sidebarPanel(
  selectInput("data1", "Select Region", choices = c(book3$Region)), 
  
    selectInput("data2", "select country", choices = c(book3$Country))
     ),
  mainPanel()
  
  
   )))
  </code></pre>