# Define UI for application that draws a scatter plot
ui <- fluidPage(
# Application title
titlePanel("Democracy and Development"),
# Sidebar with a two dropdown menus
sidebarLayout(
sidebarPanel(
selectInput(input = 'xcol', label = 'X Variable', choices = vars),
selectInput(input = 'ycol', label = 'Y Variable',
choices = vars, selected = vars[[6]])
),
# Display the scatterplot
mainPanel(
plotOutput("scatterplot")
)
)
)