In CedricMondy/bnvd: Explore French pesticide data

library(shinipsum)
library(flexdashboard)
library(dplyr)
library(bnvd)
library(sf)
library(shiny)

session$onSessionEnded(stopApp)

data("liste_departements")
data("bnvd_ventes")
data("bnvd_ventes_totales")
data("tendances")
data("classement_substances")

palette_pente <- 
  leaflet::colorNumeric(c("#39a9dc", "#8cc63f", 
                          "#E6E6E6",
                          "#FE9A2E", "#61210B"),
                        domain = c(-1.05, 1.05) *
                          max(abs(tendances$pente), na.rm = TRUE))

Ventes {.storyboard}

Inputs {.sidebar data-width=150}

mod_select_department_ui("sales_department", liste = liste_departements)
choix_departement <- callModule(mod_select_department_server,
                                "sales_department")

Les données de vente de substances phytosanitaires de la BNV-d sont utilisées pour évaluer les tendances car elles présentent des séries temporelles plus longues.

Une moyenne mobile sur trois ans est utilisée pour minimiser les effets de la variabilité inter-annuelle des quantités vendues

Evolution des ventes totales

mod_sales_map_ui("sales_map")
callModule(mod_sales_map_server, "sales_map", 
           data = tendances,
           selection = choix_departement,
           palette_custom = palette_pente)

---

mod_global_trend_ui("all_substances")
callModule(mod_global_trend_server, "all_substances",
           data = bnvd_ventes_totales, 
           tendances = tendances,
           selection = choix_departement,
           palette_custom = palette_pente)

Substances les plus vendues

mod_table_substances_ui("top_ventes")
nombre_substance <- callModule(mod_table_substances_server, "top_ventes",
                               data = classement_substances, 
                               selection = choix_departement,
                               period = range(bnvd_ventes_totales$annee))

---

mod_trend_plot_ui("trend_substances")
callModule(mod_trend_plot_server, "trend_substances", 
           data = bnvd_ventes, 
           selection = choix_departement)

Achats {.storyboard}

Cartographie des achats

mod_buy_map_ui("buy_map")
callModule(mod_buy_map_server, "buy_map") 

Méthodologie

r random_text(nwords = 1000)

Mentions légales

r random_text(nwords = 1000)

CedricMondy/bnvd documentation built on June 25, 2019, 5:57 p.m.