inst/vosondash/ui/textAnalysisUI.R

In Manmit1Singh/visnetwork: User Interface for Collecting and Analysing Social Networks

#### text analysis tab ------------------------------------------------------------------------------------------------ #
tabItem(tabName="text_analysis_tab",
        fluidRow(
          column(width=3, offset=0,
                 fluidRow(
                   sidebarPanel(width = 12, class = "custom_well_for_controls",
                                div("Filters", style = "font-weight: bold;"),
                                disabled(checkboxInput("ta_stopwords_check", "Remove standard stopwords", TRUE)),
                                disabled(textInput("ta_user_stopwords_input", label = "User-defined stopwords", value = "")),
                                disabled(checkboxInput("ta_user_stopwords_check", "Remove user-defined stopwords", FALSE)),
                                disabled(checkboxInput("ta_stem_check", "Apply word stemming", FALSE)),
                                checkboxInput("ta_rem_url_check", "Remove URLs", TRUE),
                                checkboxInput("ta_rem_num_check", "Remove numbers", TRUE),
                                checkboxInput("ta_rem_punc_check", "Remove punctuation", TRUE),
                                hr(),
                                disabled(checkboxInput("ta_twitter_hashtags_check", "Remove Twitter hashtags", TRUE)),
                                disabled(checkboxInput("ta_twitter_usernames_check", "Remove Twitter usernames", TRUE)),
                                sliderInput("ta_word_length_slider", div("Word length", style = "font-weight: normal;"),
                                            min = 1, max = 50, value = c(3, 26), ticks = FALSE)
                   ),
                 ),
                 fluidRow(
                   sidebarPanel(width = 12, class = "custom_well_for_controls",
                      checkboxInput('expand_ta_adv_check', div("Advanced", style = "font-weight:bold;"), FALSE),
                      conditionalPanel(condition = 'input.expand_ta_adv_check',
                        checkboxInput("ta_html_decode_check", "HTML Decode", TRUE),
                        checkboxInput("ta_iconv_check", "iconv UTF8", FALSE))
                   )                  
                 ),
                 fluidRow(
                   sidebarPanel(width = 12, class = "custom_well_for_controls",
                                div("Current Network Graph", style = "font-weight:bold;margin-bottom:5px;"),
                                div("These values summarise the current state of the network graph including any filtering by category and component controls.", style = "margin-bottom:5px;"),
                                verbatimTextOutput("ta_details_output", placeholder = TRUE))
                 )
          ),
          
          column(width=9, offset=0,
                 fluidRow(
                   tabBox(width = 12, title = span(icon("bar-chart", class = "social_green"), "Text Analysis"), 
                          selected = "Word Frequency", id = "selected_text_analysis_tab",
                          
                          tabPanel("Word Frequency",
                                   fluidRow(
                                     column(width = 9, taPlotContainerUI("word_freqs")),
                                     column(width = 3,
                                            fluidRow(
                                              div(sidebarPanel(width = 12, class = "custom_well_for_controls",
                                                               sliderInput("ta_wf_top_count", "Display Top:", min = 1, max = 50, value = 20),
                                                               sliderInput("ta_wf_min_word_freq", "Minimum Frequency:", min = 1, max = 50, value = 1)
                                              ), style = "margin-right:10px;")
                                            )
                                     )
                                   )
                          ),
                          tabPanel("Word Cloud",
                                   fluidRow(
                                     column(width = 9, taPlotContainerUI("word_clouds")),
                                     column(width = 3,
                                            fluidRow(
                                              div(sidebarPanel(width = 12, class = "custom_well_for_controls",
                                                               sliderInput("ta_wc_min_word_freq", "Minimum Frequency:", min = 1, max = 50, value = 1),
                                                               sliderInput("ta_wc_max_word_count", "Maximum Words:", min = 1, max = 300, value = 50),
                                                               sliderInput("ta_wc_vert_prop", "% Vertical Words:", min = 0, max = 100, value = 20),
                                                               div(actionButton("wc_reseed_button", label = icon("refresh"), style = "padding:2px 8px;"),
                                                                   div(id = "wc_seed", "", class = "div_inline")),
                                                               checkboxInput("wc_random_col", "Random Colors", FALSE)
                                              ), style = "margin-right:10px;"))
                                     )
                                   )
                          ),
                          tabPanel("Comparison Cloud",
                                   fluidRow(
                                     column(width = 9, plotOutput("comparison_cloud_plot", height = "550px")),
                                     column(width = 3,
                                            fluidRow(
                                              div(sidebarPanel(width = 12, class = "custom_well_for_controls",
                                                               sliderInput("ta_cc_max_word_count", "Maximum Words:", min = 1, max = 300, value = 50)
                                              ), style = "margin-right:10px;"))
                                     )
                                   )
                          ),
                          tabPanel("Sentiment",
                                   fluidRow(
                                     column(width = 12, div("Analysis uses the Syuzhet Package - NRC Emotion Lexicon (Saif Mohammad)", style = "margin-left:15px;"))
                                   ),
                                   fluidRow(
                                     column(width = 12, taPlotContainerUI("word_sentiments"))
                                   )
                          )                          
                   )
                 )
          )
        )
)
#### end text_analysis_tab