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"))
graph_evol_patchwork(data = df_filtre_fap_nat, fap87_filtre = fap87_filtre)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.