inst/app/modules/visao-geral.R

In conre3/pesqEle: Election Polls from Brazilian Superior Electoral Court

# Modules -----------------------------------------------------------------

source("modules/geral/geral-barplot.R")
source("modules/geral/geral-mapacoropletico.R")

# Module UI ---------------------------------------------------------------

visaogeralUI <- function(id) {
  
  ns <- NS(id)
  
  tabItem(
    tabName = id,
    fluidRow(
      box(
        title = "Pesquisas por mês",
        width = 6,
        height = 500,
        barplotOutput(id = ns("barplot"))
      ),
      box(
        title = "UFs de origem das pesquisas para Governador, Senador, Deputado Federal e Deputado Estadual",
        width = 6,
        height = 500,
        mapacoropleticoOutput(id = ns("mapa"))
      )
    )
  )
}

# Module server -----------------------------------------------------------


visaogeral <- function(input, output, session, df_pesq) {
  
  callModule(
    module = barplot,
    id = "barplot",
    df_pesq = df_pesq
  )
  
  callModule(
    module = mapacoropletico,
    id = "mapa",
    df_pesq = df_pesq
  )
  
}