-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
45 lines (35 loc) · 1.92 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
# This is the user-interface definition of a Shiny web application.
# You can find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com
#
library(shiny)
require(markdown)
shinyUI(navbarPage(
# Application title
title = "Predicting next word with Natural Language Processing",
tabPanel('App',
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
textInput("sentence",
value="", label = "Type a sentence:"),
actionButton("fetchButton", "Predict Next Word"),
h3(" "),
sliderInput("max",
"Number of Words:",
min = 1, max = 10, value = 10)
),
# Show a plot of the generated distribution
mainPanel(
tabsetPanel(
tabPanel("Words list", h3(" "), p("Please be patient, the trained model (107MB) need to be loaded from Amazon servers. It may take a bit more than a few moments to load, once loaded the application should be quite responsive."), dataTableOutput("commonTable"))
# tabPanel("Words cloud", plotOutput("plot")),
# tabPanel("Statistics", br(), plotOutput("plot"))
#
)
)
)
),
tabPanel('Readme', includeMarkdown("README.md"))
))