billboarder (version 0.2.4)

bb_proxy_legend: Show or hide legend with proxy

Description

Show or hide legend with proxy

Usage

bb_proxy_legend(proxy, what = c("show", "hide"), targetIds = NULL)

Arguments

proxy

A billboardProxy htmlwidget object.

what

show or hide the legend.

targetIds

Series ids to show/hide, if NULL show/hide all legend.

Value

A billboardProxy htmlwidget object.

Examples

# NOT RUN {
library("shiny")

data("prod_par_filiere")

ui <- fluidPage(
  tags$h2("Show or hide legend with Proxy"),
  fluidRow(
    column(
      width = 3,
      checkboxInput(
        inputId = "show_legend", 
        label = "Show legend", 
        value = TRUE
      ),
      checkboxGroupInput(
        inputId = "item_show",
        label = "Item to show in legend", 
        choices = c("Hydraulic" = "prod_hydraulique", 
                    "Wind" = "prod_eolien", 
                    "Solar" = "prod_solaire"), 
        selected = c("prod_hydraulique", "prod_eolien", "prod_solaire")
      )
    ),
    column(
      width = 9,
      billboarderOutput(outputId = "mybb")
    )
  )
)

server <- function(input, output, session) {
  
  output$mybb <- renderBillboarder({
    billboarder() %>%
      bb_barchart(
        data = prod_par_filiere[, c("annee", "prod_hydraulique", "prod_eolien", "prod_solaire")], 
        stacked = TRUE
      ) %>%
      bb_data(
        names = list(prod_hydraulique = "Hydraulic", prod_eolien = "Wind", prod_solaire = "Solar"), 
        labels = TRUE
      ) %>% 
      bb_colors_manual(
        "prod_eolien" = "#41AB5D", "prod_hydraulique" = "#4292C6", "prod_solaire" = "#FEB24C"
      ) %>%
      bb_y_grid(show = TRUE) %>%
      bb_y_axis(tick = list(format = suffix("TWh")),
                label = list(text = "production (in terawatt-hours)", position = "outer-top")) %>% 
      bb_legend(position = "right") %>% 
      bb_labs(title = "Renewable energy production",
              caption = "Data source: RTE (https://opendata.rte-france.com)")
  })
  
  observe({
    if (input$show_legend) {
      billboarderProxy("mybb") %>% bb_proxy_legend(what = "show")
    } else {
      billboarderProxy("mybb") %>% bb_proxy_legend(what = "hide")
    }
  })
  
  observe({
    lapply(
      X = c("prod_hydraulique", "prod_eolien", "prod_solaire"),
      FUN = function(x) {
        if (x %in% input$item_show) {
          billboarderProxy("mybb") %>% bb_proxy_legend(what = "show", targetIds = x)
        } else {
          billboarderProxy("mybb") %>% bb_proxy_legend(what = "hide", targetIds = x)
        }
      }
    )
  })
  
}

shinyApp(ui = ui, server = server)

# }