R/mod_wei.R

In RobWiederstein/econdash: US Economic Dashboard

#' wei UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_wei_ui <- function(id) {
    ns <- NS(id)
    tagList(
        fluidPage(
            fluidRow(
                highcharter::highchartOutput(ns("wei_plot"))
            )
        )
    )
}

#' wei Server Functions
#'
# importFrom econdash wei
#' @noRd
mod_wei_server <- function(id) {
    moduleServer(id, function(input, output, session) {
        ns <- session$ns
        output$wei_plot <- highcharter::renderHighchart({
            x <- xts::xts(wei$value, wei$date)
            highcharter::hchart(x) |>
                hc_xAxis(plotBands = us_recessions)
        })
    })
}

## To be copied in the UI
# mod_wei_ui("wei_ui_1")

## To be copied in the server
# mod_wei_server("wei_ui_1")