1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#user interface for United Nations Advanced Example
shinyUI(fluidPage(
# Application title
titlePanel("Ideal Points"),
# Sidebar with a slider input for number of bins
sidebarPanel(
h3("Ideal Points Estimation"),
# Select Justices name here
selectizeInput("name", label = "Country Name(s) of Interest",
choices = unique(ideal$Name), multiple = T,
options = list(maxItems = 5, placeholder = 'Select a name'),
selected = "United States of America"),
# Term plot
plotOutput("termPlot", height = 200),
helpText("Data: Bailey, Michael, Anton Strezhnev and Erik Voeten. Forthcoming. “Estimating Dynamic State Preferences from United Nations Voting Data.” Journal of Conflict Resolution. ")
),
# Show a plot of the generated distribution
mainPanel(
plotlyOutput("trendPlot")
)
))
|
