library(antaDraft)
library(magrittr)
# Production renewable par types -----
main_dir <- "quality/hps"
dir.create(main_dir, recursive = TRUE, showWarnings = TRUE)
production_dir <- "/Users/davidgohel/Documents/consulting/RTE/prod_20180115/B01"
capacity_dir <- "/Users/davidgohel/Documents/consulting/RTE/prod_20180115/B06"
global_options <- getOption("global_options")
p_hps_file <- global_options$hps_production_per_country
PTT <- read_prod_type(
production_dir = production_dir,
capacity_dir = capacity_dir,
production_file = p_hps_file) %>%
augment_validation()
qualcon(PTT) %>% render_quality( file.path(main_dir, "types_raw") )
PTTA <- agg_data(PTT) %>% augment_validation()
qualcon(PTTA) %>% render_quality( file.path(main_dir, "types_agg") )
# Production renewable par groupes -----
production_dir <- "/Users/davidgohel/Documents/consulting/RTE/prod_20180115/B02"
PTG <- read_prod_group(
production_dir = production_dir,
production_file = p_hps_file) %>%
augment_validation()
qualcon(PTG) %>% render_quality( file.path(main_dir, "groupes_raw") )
# Comparaison Production renewable par groupes et types -----
comp_data <- prod_compare(PTT, PTG) %>%
augment_validation()
qualcon(comp_data) %>% render_quality( file.path(main_dir, "cta_prod") )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.