R/mod_main.R

In jiwanheo/senTWEETment: Analyze Twitter Sentiment

#' Main module
#'
#' @description This module calls everything.

#' @param id The Module namespace
#' @rdname mod_main
#' @importFrom shiny NS tagList imageOutput
mod_main_ui <- function(id){
  ns <- NS(id)
  tagList(
    tags$div(
      class = "container",
      tags$div(
        class = "row text-center",
        imageOutput(ns("img"), height = "auto")
      ),
      tags$div(
        class = "row",
        mod_top_ui(ns("top_1"))
      ),
      tags$div(
        class = "row",
        mod_mid_ui(ns("mid_1"))
      ),
      tags$div(
        class = "row",
        mod_bot_ui(ns("bot_1"))
      )
    )
  )
}

#' @rdname mod_main
#' @importFrom shiny moduleServer renderImage
#' @importFrom rtweet auth_as
mod_main_server <- function(id){
  moduleServer( id, function(input, output, session){
    ns <- session$ns

    output$img <- renderImage({
      list(src = app_sys("app/www/hex.png"), height = "200px")
    }, deleteFile = FALSE)

    ta <- TweetAnalysis$new(stop_words = stop_words)
    init("analyze-tweets")

    # Try to authenticate with rds. If fails, launch ask user for token.
    tryCatch({
      connect_to_api("my-twitter-app")
    }, error = function(e) {
      mod_creds_modal_server("creds_modal_1")
    })

    mod_top_server("top_1", ta)
    mod_mid_server("mid_1", ta)
    mod_bot_server("bot_1", ta)

  })
}

## To be copied in the UI
# mod_mod_main_ui("mod_main_1")

## To be copied in the server
# mod_mod_main_server("mod_main_1")