inst/vosondash/ui/youtubeUI.R

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

#### youtube collection tab ------------------------------------------------------------------------------------------- #
tabItem(tabName = "youtube_collection_tab",
        fluidRow(
          column(width = 3, offset = 0,
                 fluidRow(
                   sidebarPanel(width = 12, class = "custom_well_for_controls",
                                checkboxInput('expand_youtube_keys_panel_check', 'Show API Key', FALSE),
                                conditionalPanel(condition = 'input.expand_youtube_keys_panel_check',
                                                 # youtube api keys input
                                                 textInput("youtube_api_key_input", label = "Data API Key", value = "")
                                )
                    ),
                   
                   # sidebarPanel(width = 12, class = "custom_well_for_controls_collect",
                   
                   tabBox(title = NULL,
                          id = "youtube_control_tabset",
                          width = 12,
                          tabPanel("Collect Data",
                                   
                                # youtube video ids input
                                div(tags$b("Add Youtube URL"), 
                                    vpopover(po_yt_url()$title, po_yt_url()$content), 
                                    style = "margin-bottom:5px;"),
                                textAreaInput("youtube_video_id_input", label = NULL, value = "",
                                              width = NULL, height = NULL,
                                              cols = NULL, rows = 2, placeholder = NULL, resize = "vertical"),
                                actionButton("youtube_add_video_id_button", label = "Add"),
                                selectInput("youtube_video_id_list_output", "", c(), multiple = TRUE, selectize = FALSE, size = 3),
                                actionButton("youtube_remove_video_id_button", label = "Remove"),
                                div(div("Max Comments", class = "div_inline", style = "padding-bottom:10px;padding-right:10px;"),
                                    div(numericInput("youtube_max_comments_input", label = NULL, value = gbl_def_youtube_count, min = 1, width = "90px"), class = "div_inline")),
                                p(""),
                                disabled(actionButton("youtube_collect_button", label = "Collect Comments", icon = icon("cloud-download")))
                          ), # end tabPanel
                          tabPanel("Create Network",
                                   div(tags$b("Network")),
                                   selectInput("youtube_network_type_select", label = NULL, choices = c("activity", "actor"), multiple = FALSE),
                                   conditionalPanel(
                                           condition = "input.youtube_network_type_select == 'activity' || 
                                                        input.youtube_network_type_select == 'actor'",
                                           checkboxInput("youtube_network_text", "Add Text", FALSE)
                                   ),
                                   conditionalPanel(
                                           condition = "input.youtube_network_type_select == 'actor' &&
                                                        input.youtube_network_text == 1",
                                           checkboxInput("youtube_network_replies_from_text", "Find Replies in Text", FALSE)
                                   ),                                   
                                   conditionalPanel(
                                           condition = "input.youtube_network_type_select == 'actor'",
                                           checkboxInput("youtube_network_video_data", "Add Video Details", FALSE)
                                   ),
                                   conditionalPanel(
                                           condition = "input.youtube_network_type_select == 'actor' &&
                                                        input.youtube_network_video_data == 1",
                                           checkboxInput("youtube_network_video_subs", "Only replace Video ID's", FALSE)
                                   ),
                                   p(""),
                                   disabled(actionButton("youtube_create_button", label = "Create Network", icon = icon("share-alt")))
                                   
                          ) # end tabPanel
                   ) # end tabBox
                 ) # end fluidRow
          ), # end column
          
          column(width = 9, offset = 0,
                 fluidRow(
                   tabBox(width = 12,
                          title = div(
                            span(actionButton("clear_youtube_console", label = icon("erase", lib = "glyphicon"), 
                                              style = "padding: 2px 8px;", title = "Clear Console"), 
                                 style = "padding-right: 10px;"),
                            span(icon("youtube", class = "youtube_red"), "Youtube Network Collection")
                          ),
                          tabPanel("Console", width = 12,
                                   verbatimTextOutput("youtube_arguments_output"),
                                   
                                   # youtube collect console
                                   pre(id = "youtube_console", style = "height: 300px; overflow-y: scroll")
                          )
                   ),
                   
                   sidebarPanel(width = 12, class = "custom_well_for_buttons",
                                fluidRow(collectDataButtonsUI("youtube"),
                                         collectNetworkButtonsUI("youtube"),
                                         collectGraphButtonsUI("youtube"),
                                         collectViewGraphButtonsUI("youtube"))
                   )
                 )
          )
        ),
        
        fluidRow(
          # youtube collection data table
          tabBox(width = 12, title = "Youtube Data",
                 tabPanel("Results", 
                          fluidRow(
                            div(checkboxInput('expand_show_youtube_cols', 'Column filters', FALSE),
                                style = "margin-left:12px; margin-right:5px;", class = "div_inline"),                            
                            div(checkboxInput("dt_youtube_truncate_text_check", "Truncate text", TRUE), 
                                class = "div_inline")
                          ),
                          uiOutput("youtube_data_cols_ui"),                          
                          DT::dataTableOutput("dt_youtube_data"))
          )
        )
)
#### end youtube_collection_tab