-
Notifications
You must be signed in to change notification settings - Fork 12
/
ui.R
43 lines (18 loc) · 909 Bytes
/
ui.R
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
library(shiny)
shinyUI(fluidPage(
titlePanel("Twitter Seniment Analysis"),
sidebarLayout(
sidebarPanel(
textInput("term","Enter Search Term:","#example"),
sliderInput("i", "Select no. of Tweets:", 0, 1500, 100, step = 50, round = FALSE, format = NULL, locale = NULL, ticks = TRUE, animate = FALSE, width = NULL, sep = ",", pre = NULL, post = NULL, timeFormat = NULL, timezone = NULL, dragRange = TRUE),
radioButtons("pType", "Select a Plot type:",
list("Sentiment Trends"='a', "Sentiment Scores"='b', "Word Cloud"='c')),
submitButton("Analyze!"),
print(h6(" Be Patient, Good Things Take Time!"))
),
mainPanel(
dataTableOutput("table"),
plotOutput("plot")
)
) )
)