-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
74 lines (49 loc) · 1.49 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
library(shiny)
shinyUI(fluidPage(
titlePanel('Mapa de Sentimientos'),
fluidRow(
column(12,
p("Clasifique los cinco tweets como",
"bueno, malo o neutral, sea paciente los tweets pueden tardar en cargar."),
h3('Tweet1'),
textOutput('Tweet1'),
br(),
radioButtons("radio1", label = NULL,
choices = list("Malo" = 'B', "Neutral" = 'N',
"Bueno" = 'G'),selected = NULL,inline=TRUE),
h3('Tweet2'),
textOutput('Tweet2'),
br(),
radioButtons("radio2", label = NULL,
choices = list("Malo" = 'B', "Neutral" = 'N',
"Bueno" = 'G'),selected = NULL,inline=TRUE),
h3('Tweet3'),
textOutput('Tweet3'),
br(),
radioButtons("radio3", label = NULL,
choices = list("Malo" = 'B', "Neutral" = 'N',
"Bueno" = 'G'),selected = NULL,inline=TRUE),
h3('Tweet4'),
textOutput('Tweet4'),
br(),
radioButtons("radio4", label = NULL,
choices = list("Malo" = 'B', "Neutral" = 'N',
"Bueno" = 'G'),selected = NULL,inline=TRUE),
h3('Tweet5'),
textOutput('Tweet5'),
br(),
radioButtons("radio5", label = NULL,
choices = list("Malo" = 'B', "Neutral" = 'N',
"Bueno" = 'G'),selected = NULL,inline=TRUE),
br(),
column(3,
actionButton("action", label = "Submit"),
#br(),
#h3('Password'),
#textInput("text", label = NULL, value = "Enter password..."),
br(),
downloadButton('downloadData', 'Download')
)
)
)
))