Skip to content
Snippets Groups Projects
Commit a6d29c44 authored by Franck.Gaspard's avatar Franck.Gaspard
Browse files

rechargement des données

chargement de la version en developpement de mapview pour répondre à un message d'erreur qui neutralisait la carte récapitluaitve des mâts
proposition de mise à jour automatique des données par relance du script de collecte et de préparation
nouvelle expression du choix du trimestre pour automatiser la liste et sélectionner le dernier trimestre disponible
parent 5b85abf7
Branches
No related tags found
No related merge requests found
......@@ -11,7 +11,7 @@ library(tricky)
# datapréparation SIGLOIRE ----------
mats_eolien_1 <-sf::st_read("https://catalogue.sigloire.fr/api/data/25823933-a92c-4d78-bacf-1cfcf339fd56") %>% # 1171 obs
mats_eolien_1 <-sf::st_read("https://catalogue.sigloire.fr/api/data/25823933-a92c-4d78-bacf-1cfcf339fd56") %>% # 1188 obs
mutate(id_mat = paste0(id_au, "_", numero))
# names(mats_eolien_1)
......@@ -19,7 +19,7 @@ mats_eolien_1 <-sf::st_read("https://catalogue.sigloire.fr/api/data/25823933-a92
# [10] "diam_rotor" "pu_nominal" "x_pc" "y_pc" "sys_coord" "alt_base" "etat_mat" "date_prod" "date_real"
# [19] "date_demol" "en_service" "srce_geom" "precis_pos" "geometry" "id_mat"
mats_eolien_2 <- sf::st_read("https://catalogue.sigloire.fr/api/data/bbc57d12-ce05-4ce4-a66f-bc17bff48d4f") # 1171 obs
mats_eolien_2 <- sf::st_read("https://catalogue.sigloire.fr/api/data/bbc57d12-ce05-4ce4-a66f-bc17bff48d4f") # 1188 obs
# mapview(mats_eolien, legend = FALSE)
# names(mats_eolien2)
......@@ -29,7 +29,7 @@ mats_eolien_2 <- sf::st_read("https://catalogue.sigloire.fr/api/data/bbc57d12-ce
# [13] "etat_autorisation_mat" "puissance_nominale_parc" "nb_mats_demandes" "nb_mats_autorises"
# [17] "puissance_nominale_eolienne" "date_realisation" "geometry"
parcs_eolien <- sf::st_read("https://catalogue.sigloire.fr/api/data/15468f65-9217-4edb-bfc3-4e68942097ce") # 219 obs
parcs_eolien <- sf::st_read("https://catalogue.sigloire.fr/api/data/15468f65-9217-4edb-bfc3-4e68942097ce") # 221 obs
# mapview(parcs_eolien, color= "red", col.regions="#EFC2E4", legend=FALSE)
......@@ -49,9 +49,9 @@ parcs_eolien_mats <- select(parcs_eolien, code_icpe, id_parc, nom_parc) %>%
starts_with("puissance_")), ., by = "id_mat") %>%
mutate(dep = substr(id_au, 4, 5))
# Vérif codes départements : seuls les parcs de Freigné ont une différence de code département entre l'identifiant de l'autorisation et celle
# filter(parcs_eolien_mats, dep != substr(id_parc, 1, 2)) %>% pull(nom_parc) %>% unique
filter(parcs_eolien_mats, dep != substr(id_parc, 1, 2)) %>% pull(nom_parc) %>% unique
# [1] "Parc éolien FREIGNE II (Le Breil)" "Parc éolien FREIGNE I (Freigné)" "CENTRALE EOLIENNE LA FRAUBEE"
# names(parcs_eolien_mats)
# [1] "id_mat" "demandeur" "etat_eolienne" "etat_service" "etat_autorisation"
......@@ -123,7 +123,7 @@ etat_parc_instruction_trim <- function(trimestre = "2020.4", indicateurs = FALSE
# etat_parc_instruction_trim("2020.4", indicateurs = FALSE, nouveau = TRUE)
# fonction de création de la liste des parcs autorisés (en service ou non) du trimestre ou des indicateurs de synthèse correspondant
etat_parc_autorise_trim <- function(trimestre = "2020.4", indicateurs = FALSE, nouveau = FALSE) {
etat_parc_autorise_trim <- function(trimestre = "2022.4", indicateurs = FALSE, nouveau = FALSE) {
result <- parcs_eolien_tableau %>%
# on garde les autorisations enregistrées avant la fin du trimestre (les trim_autorisation à NA sont écartés par ce filtre)
filter(trim_autorisation <= trimestre)
......@@ -219,10 +219,6 @@ enedis_production <- read.csv2("https://data.enedis.fr/explore/dataset/parc-des-
# [6] "type_production" "id_type_inj" "type_injection" "stockage_existence" "tranche"
# [11] "fin_de_trimestre" "nombre_installations" "puissance_mw" "geo_shape" "geo_point_2d"
# unique(enedis_production_eol_photov$trimestre) %>% sort()
# [1] "2020.1" "2020.2" "2020.3" "2020.4" "2021.1" "2021.2" "2021.3" "2021.4"
enedis_production_eol_photov <- enedis_production %>%
filter(code_type_prod == 100 | (code_type_prod == 200 & tranche == "d-]250;...[")) %>% # on garde le photovoltaïque et l'éolien de grande puissance
mutate(trimestre = as.character(quarter(ymd(fin_de_trimestre), with_year = TRUE))) %>%
......@@ -242,6 +238,9 @@ enedis_production_eol_photov <- enedis_production %>%
filter(!is.na(nb)) %>%
ungroup()
# unique(enedis_production_eol_photov$trimestre) %>% sort()
# [1] "2020.1" "2020.2" "2020.3" "2020.4" "2021.1" "2021.2" "2021.3" "2021.4" "2022.1" "2022.2"
# une fonction de filtre et de mise en forme pour le trimestre des données Enedis
enedis_trimestre <- function(trim = "2020.4") {
filter(enedis_production_eol_photov, trimestre == trim) %>%
......
......@@ -9,4 +9,6 @@ library(dplyr)
library(sf)
library(lubridate)
# source('explo_eolien.R')
load("eolien_pv_trim_shiny.RData")
......@@ -4,8 +4,9 @@ sidebarLayout(
width = 2,
selectInput(inputId = "select_trim",
label = "selectionner un trimestre",
choices = c(2015:2022 + 0.1, 2015:2022 + 0.2, 2015:2022 + 0.3, 2015:2022 + 0.4) %>% sort %>% as.character(),
selected = "2020.4")
choices = quarter(ymd(seq.Date(as.Date("2015-01-01"),Sys.Date() -90 , by = "quarter")), type = "year.quarter"),
selected = quarter(ymd(Sys.Date()-90), type = "year.quarter")
)
),
mainPanel(
fluidPage(
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment