inst/app/modules/estatisticos.R

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

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

source("modules/estatisticos/tableStat.R")
source("modules/estatisticos/selectStat.R")
source("modules/estatisticos/selectStatPesq.R")
source("modules/estatisticos/statCounts.R")
source("modules/estatisticos/pesqSummary.R")

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

estatisticosUI <- function(id, df_pesq = df_pesq) {
  ns <- NS(id)
  
  tabItem(
    tabName = id,
    fluidRow(
      tabBox(
        width = 12,
        height = 470,
        tabPanel(
          title = "Geral",
          tableStatOutput(ns("table_stat")),
          tags$hr(),
          tags$p("* Valor mediano cobrado por pesquisa."),
          tags$p("** Custo mediano por unidade amostral.")  
        ),
        tabPanel(
          title = "Por estatístico",
          column(
            width = 12,
            selectStatInput(ns("stat_select"), df_pesq = df_pesq)
          ),
          column(
            style = "background-color: #ededed",
            width = 9,
            selectStatPesqInput(ns("stat_pesq_select"), df_pesq = df_pesq),
            tags$div(
              style = "font-size = 11pt",
              pesqSummaryOutput(ns("pesq_summary")),
              tags$br()
            )
          ),
          column(
            width = 3,
            statCountsOutput(ns("stat_counts"))
          )
        )
      )
    )
  )
  
}


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

estatisticos <- function(input, output, session, df_pesq) {
  
  callModule(
    module = tableStat,
    id = "table_stat",
    df_pesq = df_pesq
  )
  
  df_pesq_stat <- callModule(
    module = selectStat,
    id = "stat_select",
    df_pesq = df_pesq
  )
  
  callModule(
    module = statCounts,
    id = "stat_counts",
    df_pesq = df_pesq_stat
  )
  
  df_pesq_stat_pesqid <- callModule(
    module = selectStatPesq,
    id = "stat_pesq_select",
    df_pesq = df_pesq_stat
  )
  
  callModule(
    module = pesqSummary,
    id = "pesq_summary",
    df_pesq = df_pesq_stat_pesqid
  )
    
}