Coursera-Data-Science-Capstone/ui.R at master · HHassig/Coursera-Data-Science-Capstone · GitHub

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
library(shiny)

# Define UI for dataset viewer application
shinyUI(fluidPage(

    # Application title.
    titlePanel("What's Next?!"),

    sidebarLayout(
        sidebarPanel(
            textInput("obs", "Enter some text here:"),

            helpText("Here we will analyze your text to predict what word comes next."),

            submitButton("Predict!")
        ),

      mainPanel(
          h6("You entered:"),
          textOutput("initialText"),
          br(),
          h6("Removing special formatting:"),
          textOutput("Translated"),
          br(),
          br(),
          h3("What's next:"),
          div(textOutput("topGuess"), style = "color:red"),
          br(),
          h3("This was done by looking at the following:"),
          tableOutput("view")
    )
  )
))