library(antaDraft)
system.time({
production_channel <- anta_prod_channel(
production_dir = "/Users/davidgohel/Documents/consulting/RTE/PROD/B01-Production_réalisée_par_filière",
capacity_dir = "/Users/davidgohel/Documents/consulting/RTE/PROD/B06-Capacité_installée_par_filière"
)
})
production_channel <- augment_validation(production_channel)
# library(dplyr)
# library(tidyr)
# production_channel %>%
# as_tibble() %>%
# filter( is.na(generation_output) ) %>%
# group_by(country, production_type) %>%
# tally() %>%
# spread(production_type, n) %>%
# View
ccc <- qualcon(production_channel)
render_quality(ccc, "coco" )
prod_agg <- aggregate_prod_with_rules(production_channel)
prod_agg <- augment_validation(prod_agg)
ddd <- qualcon(prod_agg)
render_quality(ddd, "tutu" )
prod_group_data <- anta_prod_group(production_dir = "/Users/davidgohel/Documents/consulting/RTE/PROD/B02-Production_réalisée_par_groupe")
prod_group_data <- augment_validation(prod_group_data)
eee <- qualcon(prod_group_data)
render_quality(eee, "aaaa" )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.