ui.R

In lyzs90/TextMiner: Text Mining Suite

# ui.R

fluidPage(theme = "paper.css",
    
    tags$head(
        tags$link(rel = "stylesheet", type = "text/css", href = "main.css")
    ),      
          
    titlePanel(span(tags$img(src = "./hat-icon.png", width = "50px", height = "50px"), 
                    "Text Miner")),
    
    sidebarLayout(
        sidebarPanel(
            h6("This app will count word/phrase frequencies and display a word cloud. 
               Clustering can help uncover relationships between the words/phrases."),
            hr(),
            tags$div(HTML(
                '<label class="btn btn-default btn-file shiny-bound-input">
                Browse <input id="file1" name="file1" type="file" style="display: none;">
                </label>'
            )),
            helpText("Upload a single column .txt file containing your free text."),
            hr(),
            selectInput("ngram", 
                        label = "N-gram:",
                        width= "200px",
                        choices = list("Unigram" = "1L", "Bigram" = "2L",
                                       "Trigram" = "3L"), selected = "1L"),
            helpText("Select no. of co-occuring words to be modeled. i.e. Unigram for
                     individual words; Bigram for word pairs; Trigram for word triples."),
            hr(),
            fluidRow(
                column(8, textInput("addword", "Add stopwords", value = "", width = "200px")),
                column(4, actionButton("add", "Add", icon = icon("plus")))
            ),
            tags$style(type='text/css', "#add { width:100%; margin-top: 25px;}"),
            helpText("Stopwords will be excluded. You can add multiple words
                     using a space delimiter. Note: You cannot remove basic stopwords."),
            hr(),
            sliderInput("freq",
                        label = "Minimum Frequency:",
                        min = 1,  max = 20, value = 2),
            helpText("Words with a frequency below the Minimum Frequency will not be plotted. 
                     Note: If you input a Minimum Frequency that is too high, it will revert 
                     to a value of 1."),
            hr(),
            sliderInput("max",
                        label = "Maximum Number of Words:",
                        min = 1,  max = 100,  value = 20),
            helpText("Limit display to the Top-N occuring words."),
            hr(),
            actionButton("submit", "Submit", icon = icon("refresh"))
        ),
        
        mainPanel(
            tabsetPanel(
                #tabPanel("Debug", textOutput("debug")),
                tabPanel("Stopwords", 
                         h4(tags$span(style="color:rgb(0, 153, 204)", 
                                      textOutput("stopwords"))
                         )
                ),
                tabPanel("Word Cloud", plotOutput("cloud")),
                tabPanel("Clustering", plotOutput("cluster", 
                                                  height = "700px",
                                                  width = "700px"))
                
                
            )
        )
        
    ), title = "Text Miner mines text for you"
)