knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(tidyverse)
library(gravitype)
library(shiny)
library(here)
fap87_filtre <- params$fap87_filtre

df_filtre_fap_nat <- data_tensions_nat_fap %>%
      filter(fap87 %in% c(params$fap87_filtre, "Global"))

Radar


Tableau


Evolutions

graph_evol_patchwork(data = df_filtre_fap_nat,
                         fap87_filtre = fap87_filtre)

Cartes

Tension


Intensité d'embauches


Main d'oeuvre disponible


Conditions d'emploi


Méthodologie



tvroylandt/gravitype documentation built on Feb. 7, 2020, 2:37 a.m.