-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
81 lines (75 loc) · 2.66 KB
/
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
library(shiny)
# read some variables from file
source("variables.R")
names(tatort_days) <- tatort_labels
################################################################################
# user interface
################################################################################
shinyUI(pageWithSidebar(
headerPanel("Interactive #tatort and #polizeiruf tweet statistics"),
# Sidebar controls for filtering what tweets to display
sidebarPanel(
conditionalPanel(
condition="input.TabPanel != 'overview'",
# days
checkboxGroupInput("selected_days", "Days:",
tatort_days, selected=tatort_days[1:6]),
# time
sliderInput("selected_time", "Time:",
min=1900, max=2400, value=c(1900,2400), step=500/60, format="##,#0"),
actionButton(inputId="goButton", "apply filter"),
p("Tweets selected: "),
textOutput('dimension')
),
conditionalPanel(
condition="input.TabPanel == 'overview'",
p("All tweets selected."),
p("Please use 'tweet stats' to view selected tweets.")
)
),
mainPanel(
tabsetPanel(
id = "TabPanel",
tabPanel("tweets",dataTableOutput('mytable')),
tabPanel("overview",
h3("tweets per day"),
plotOutput('tweetsByDay'),
h3("tweets and retweets"),
plotOutput('reTweets'),
h3("number of characters per tweet"),
plotOutput('nCharPlot'),
verbatimTextOutput('nCharSummary'),
h3("number of words per tweet"),
plotOutput('nWordPlot'),
verbatimTextOutput('nWordSummary')),
tabPanel("word freq",dataTableOutput('freqterms')),
tabPanel("n-grams",
h3("bigrams"),
tableOutput('bigrams'),
h3("trigrams"),
tableOutput('trigrams'),
h3("fourgrams"),
tableOutput('fourgrams'),
h3("fivegrams"),
tableOutput('fivegrams')
),
tabPanel("tweet stats",
h3("number of characters per tweet"),
plotOutput('nCharPlotS'),
verbatimTextOutput('nCharSummaryS'),
h3("number of words per tweet"),
plotOutput('nWordPlotS'),
verbatimTextOutput('nWordSummaryS')
),
tabPanel("user stats",
h3("user statistics"),
tableOutput('userStats'),
h3("30 most active users"),
tableOutput('freqUsers'),
),
tabPanel("whodunit?",
h3("wer war's?"),
tableOutput('whodunit'))
)
)
))