textcomplete/ui.R at master · onlyphantom/textcomplete · 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
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
library(shiny)

# Define UI for application
shinyUI(fixedPage(
  includeCSS("www/custom.css"),
    fixedRow(
        column(12,
            tags$div(class="spotlight",
                tags$h1("Text Complete"),
                tags$p("A next-word prediction app built with R"),
                textInput("input1", "Write something here:"),
                htmlOutput("output1", inline=T)
            ),


            fixedRow(
                column(3,
                offset = 1,
                h4("Lightweight. Fast."),
                helpText("A next-word suggestion app built with the \n
                            Stupid Backoff Model described and proposed \n
                            by Brants et. al. \n
                          This language model is inexpensive to calculate while \n
                            approaching the quality of Kneser-Ney smoothing \n
                            for large amounts of data (Brants et. al)."
                         )
                ),
                #end column5

                column(4,
                    sliderInput("k",
                    "Number of suggestions:",
                    min=1,
                    max=5,
                    value=4)
                ),

                column(3,
                       h4("Credits"),
                       tags$ul(
                           tags$li("Author / Developer: Samuel Chan"),
                           tags$li(tags$a(href="http://www.aclweb.org/anthology/D07-1090.pdf", "References: Large Language Models
                                          in Machine Translation"),
                                    "(Google, Inc., Mountain View), Thorsten Brants, Ashok C. Popat, Peng Xu, Franz J. Och,
                                    Jeffrey Dean"),
                           tags$li("R packages:", tags$code("Shiny"), ",", tags$code("RSQlite"), ",",
                                   tags$code("tm"), ",", tags$code("stringi"),
                                   ",", tags$code("dplyr")),
                           offset=1
                       )

                #end column5
            )#end fluidRow
        )#end column12
    )


)))