inst/shiny-birdcage/ui.R

In knapply/birdcage: An App for Interactive Analysis, Transformation, and I/O of Twitter Data

# header =================================================================================
header <- dashboardHeader(
  title = HTML("{birdcage}")
)


# sidebar ================================================================================
sidebar <- dashboardSidebar(
  sidebarMenu(
    id = "tabs"
    ,
    actionButton("import_data", "Import Data")
    ,
    actionButton("export_data", "Export Data")
    ,
    # menuItem("Home", tabName = "home", icon = icon("home"),
    # selected = TRUE)
    # ,
    menuItem("Summary", tabName = "summary", icon = icon("chart-line"),
             selected = TRUE)
    ,
    menuItem("Map", tabName = "map", icon = icon("globe") )
    ,
    menuItem("Knowledge Graph", tabName = "knowledge_graph", icon = icon("bezier-curve") )
    # ,
    # menuItem("Communities and Topics", tabName = "communities", icon = icon("users"))
    ,
    menuItem("Explore Data", tabName = "explore", icon = icon("twitter"))
    ,
    menuItem("About", tabName = "about", icon = icon("info"))
  )
)


# tabs ===================================================================================

#* summary ===============================================================================
tab_summary <- tabItem(
  tabName = "summary",
  fluidRow(
    box(width = 12, collapsible = TRUE,
        valueBoxOutput("n_users", width = 2) %>% w_spin(),
        valueBoxOutput("n_statuses", width = 2) %>% w_spin(),
        valueBoxOutput("n_hashtags", width = 2) %>% w_spin(),
        valueBoxOutput("n_urls", width = 2) %>% w_spin(),
        valueBoxOutput("n_media", width = 2) %>% w_spin(),
        valueBoxOutput("n_communities", width = 2) %>% w_spin()
    )
  )
  ,
  fluidRow(
    # box(
    box(
      width = 12, collapsible = TRUE,
      column(
        numericInput("timeline_bin_size", label = "Bin Size", value = 1,
                     min = 1)
        ,
        width = 5
      )
      ,
      column(
        selectInput("timeline_bin_unit", label = "Bin Unit",
                    choices = c("second", "minute", "hour", "day", "week", "month",
                                "year"),
                    selected = "minute")
        ,
        width = 5
      )
      ,
      column(
        checkboxInput("timeline_merge", "Merge Plots?", value = FALSE),
        checkboxInput("timeline_sync_y_axes", "Sync Y Axes?", value = FALSE),
        checkboxInput("timeline_expand", "Expand Timeline?", value = FALSE)
       ,
       width = 2
      )
      ,
      box(width = 12,
          plotly::plotlyOutput("pl_timeline", height = "600px") %>% w_spin()
      )
    )
  )
)


#* map ===================================================================================
tab_map <- tabItem(
  tabName = "map",
  fluidRow(
    box(
      width = 12, collapsible = TRUE,
      leafletOutput("leaf", height = "800px") %>% w_spin()
    )
    ,
    box(
      width = 12, collapsed = TRUE,
      DT::dataTableOutput("map_DT", height = "600px") %>% w_spin()
      
    )
  )
)


#* knowledge_graph
tab_knowledge_graph <- tabItem(
  tabName = "knowledge_graph",
  fluidRow(
    box(
      width = 6
      ,
      searchInput(inputId = "search_kg", 
                  label = "Search Everything",
                  placeholder = "Type your search and hit Enter...",
                  btnSearch = icon("search"), 
                  btnReset = icon("remove"))
    )
    ,
    box(
      width = 12, collapsible = TRUE
      ,
      tabsetPanel(
        tabPanel(
          title = "Users Found",
          DT::dataTableOutput("kg_users_found", height = "600px") %>% w_spin()
        )
        ,
        tabPanel(
          title = "Statuses Found",
          DT::dataTableOutput("kg_statuses_found", height = "500px") %>% w_spin()
        )
        ,
        tabPanel(
          title = "Entities Found",
          DT::dataTableOutput("kg_entities_found", height = "500px") %>% w_spin()
        )
      )
    )
    ,
    box(
      width = 6, height = "850px", collapsible = TRUE,
      visNetworkOutput(outputId = "vis_net", height = "800px") %>% w_spin()
    )
    ,
    box(
      width = 6, height = "850px", collapsible = TRUE
      ,
      tabsetPanel(
        tabPanel(
          title = "User Nodes",
          DT::dataTableOutput("vis_user_nodes", height = "800px") %>% w_spin()
        )
        ,
        tabPanel(
          title = "Status Nodes",
          DT::dataTableOutput("vis_status_nodes", height = "800px") %>% w_spin()
        )
        ,
        tabPanel(
          title = "Entity Nodes",
          DT::dataTableOutput("vis_entity_nodes", height = "800px") %>% w_spin()
        )
      )
    )
  )
)


#* explore ===============================================================================
tab_explore <- tabItem(
  tabName = "explore",
  fluidRow(
    box(
      width = 12,
      DT::dataTableOutput("tweet_DT", height = "800px") %>% w_spin()
    )
  )
)


#* about =================================================================================
tab_about <- tabItem(
  tabName = "about",
  fluidRow(
    box(
      width = 12,
      includeMarkdown("about/about.md")
    )
  )
)


# body ===================================================================================
body <- dashboardBody(
  tags$head(includeHTML("www/google-analytics.html")),
  tabItems(
    tab_summary,
    tab_map,
    tab_knowledge_graph,
    tab_explore,
    tab_about
  )
)


# dashboardPage ==========================================================================
dashboardPage(
  header,
  sidebar,
  body
)