réponses aux tickets 2, 3 et 4

explo_eolien.R

@@ -45,17 +45,17 @@ parcs_eolien_mats <- select(parcs_eolien, id_parc, nom_parc, dep) %>%
   full_join(mats_eolien_1 %>% st_drop_geometry() %>%
               select(id_parc, id_mat, etat_mat, en_service, date_prod, id_au, pu_nominal),
             by = "id_parc") %>%
-  right_join(mats_eolien_2 %>% select(id_mat, starts_with("etat_"), starts_with("date_"), starts_with("nb_mats"),
+  right_join(mats_eolien_2 %>% select(id_mat, demandeur,starts_with("etat_"), starts_with("date_"), starts_with("nb_mats"),
                                       starts_with("puissance_"), starts_with("nb_mats_")), ., by = "id_mat") %>%
   mutate(dep = substr(id_parc, 1, 2))
 
 # names(parcs_eolien_mats)
-# [1] "id_mat"                      "etat_eolienne"               "etat_service"                "etat_autorisation"
-# [5] "etat_autorisation_mat"       "date_depot"                  "date_derniere_decision"      "date_realisation"
-# [9] "nb_mats_demandes"            "nb_mats_autorises"           "puissance_nominale_parc"     "puissance_nominale_eolienne"
-# [13] "id_parc"                     "nom_parc"                    "dep"                         "etat_mat"
-# [17] "en_service"                  "date_prod"                   "id_au"                       "pu_nominal"
-# [21] "geometry"
+# [1] "id_mat"                      "demandeur"                   "etat_eolienne"               "etat_service"
+# [5] "etat_autorisation"           "etat_autorisation_mat"       "date_depot"                  "date_derniere_decision"
+# [9] "date_realisation"            "nb_mats_demandes"            "nb_mats_autorises"           "puissance_nominale_parc"
+# [13] "puissance_nominale_eolienne" "id_parc"                     "nom_parc"                    "dep"
+# [17] "etat_mat"                    "en_service"                  "date_prod"                   "id_au"
+# [21] "pu_nominal"                  "geometry"
 
 # table des parcs avec info sur date autorisation et de dépot
 parcs_eolien_tableau <- parcs_eolien_mats %>%
@@ -66,8 +66,8 @@ parcs_eolien_tableau <- parcs_eolien_mats %>%
          trim_refus = if_else(etat_autorisation_mat == "NAU", quarter(ymd(date_derniere_decision), type = "year.quarter"), NA_real_),
   # redressement de la base : une saisie par erreur au niveau de la date de production
   trim_mes = if_else(is.na(trim_autorisation), NA_real_, trim_mes)) %>%
-  select(dep, id_parc, nom_parc, etat_autorisation_parc = etat_autorisation, starts_with("trim_"), puissance_nominale_parc, id_mat) %>%
-  group_by(dep, id_parc, nom_parc, etat_autorisation_parc, across(starts_with("trim_")), puissance_nominale_parc) %>%
+  select(dep, id_parc, nom_parc, etat_autorisation_parc = etat_autorisation, starts_with("trim_"), puissance_nominale_parc, id_mat,demandeur) %>%
+  group_by(dep, id_parc, nom_parc, etat_autorisation_parc, demandeur,across(starts_with("trim_")), puissance_nominale_parc) %>%
   summarise(nb_mats = n_distinct(id_mat), .groups = "drop") %>%
   mutate(across(starts_with("trim_"), as.character))
 
@@ -75,7 +75,7 @@ parcs_eolien_geom <- select(parcs_eolien, id_parc, nom_parc, exploitant) %>%
   filter(id_parc %in% parcs_eolien_tableau$id_parc)
 
 mat_eolien_geom <- filter(parcs_eolien_mats, id_parc %in% parcs_eolien_tableau$id_parc) %>%
-  select(id_parc, nom_parc, id_mat)
+  select(id_parc, nom_parc, id_mat,demandeur)
 
 
 ## Exploitation des données SIGLOIRE --------------

server.R

@@ -7,11 +7,12 @@ function(input, output, session) {
     instruction <- etat_parc_instruction_trim(input$select_trim, indicateurs = TRUE)
     autorises <- etat_parc_autorise_trim(input$select_trim, indicateurs = TRUE)
     construit <- etat_parc_construits_trim(input$select_trim, indicateurs = TRUE)
-    tableau <- instruction %>%
-      left_join(autorises, by = "zone") %>%
+    tableau <- autorises %>%
       left_join(construit, by = "zone") %>%
+      left_join(instruction, by = "zone") %>%
       select(-starts_with("nb_mats")) %>%
-      mutate_if(is.numeric, as.integer)
+      mutate_if(is.numeric, as.integer) %>%
+      select(zone,nb_parcs_instruc,puiss_MW_instruc,nb_parcs_autor,puiss_MW_autor,nb_parcs_en_serv,puiss_MW_en_serv)
     return(tableau)
   })
 
@@ -141,23 +142,37 @@ function(input, output, session) {
   etat_parc_refuses_trim_carte <- reactive({
     etat_parc_refuses_trim(input$select_trim, indicateurs = FALSE, nouveau = TRUE) %>%
       select(id_parc, nom_parc, puissance_nominale_parc) %>%
-      right_join(parcs_eolien_geom, ., by = 'id_parc') # voir le recensement des parcs refusés dans explo_eolien.R
+      right_join(parcs_eolien_geom, ., by = 'id_parc')
   })
 
   mat_parc_refuses <- reactive({
     mat_eolien_geom %>% semi_join(etat_parc_refuses_trim_carte() %>% st_drop_geometry())
   })
 
+  test_etat_parc_refuses_trim_carte <- reactive({
+    test <- semi_join(etat_parc_refuses_trim(input$select_trim, indicateurs = FALSE, nouveau = TRUE) %>%
+                        select(id_parc, nom_parc, puissance_nominale_parc),
+                      parcs_eolien_geom,
+                      by= 'id_parc')
+    nrow(test)
+  })
+
   output$map_parc_refuses <- renderLeaflet({
-    (mapview(etat_parc_refuses_trim_carte(),legend=FALSE) + mapview(mat_parc_refuses(),legend = FALSE))@map %>%
-      addFullscreenControl()
+    if(test_etat_parc_refuses_trim_carte() == 0)({
+      (mapview(mat_parc_refuses(),legend = FALSE))@map %>%
+        addFullscreenControl()
+    })
+    else({
+      (mapview(etat_parc_refuses_trim_carte(),legend=FALSE) + mapview(mat_parc_refuses(),legend = FALSE))@map %>%
+        addFullscreenControl()
+    })
   })
 
   output$liste_parc_refuses <- renderTable({
     etat_parc_refuses_trim(input$select_trim, indicateurs = FALSE, nouveau = TRUE) %>%
-      select(dep, id_parc, nom_parc, puissance_nominale_parc) %>%
+      select(dep, id_parc, nom_parc, demandeur, puissance_nominale_parc) %>%
       arrange(id_parc) %>%
-      mutate(nom_parc = ifelse(is.na(nom_parc),"pas de nom",nom_parc)) # PROBLEME  : le tableau n'affiche aucune valeur !? -----
+      mutate(nom_parc = ifelse(is.na(nom_parc),"pas de nom",nom_parc))
   })
 
 }

ui.R

@@ -34,42 +34,42 @@ sidebarLayout(
              width = 12,
              height = 1000,
              tabPanel(title = "Parcs en instruction",
-                      box(width = 5,
+                      box(width = 6,
                           tags$h4("liste des parcs en instruction"),
                           tableOutput("liste_parc_instruction")
                           ),
-                      box(width = 7,
+                      box(width = 6,
                           tags$h4("carte des nouveaux parcs du trimestre"),
                           mapviewOutput(outputId = "map_parc_instruction")
                           )
                       ),
              tabPanel(title = "Parcs autorisés",
-                      box(width = 5,
+                      box(width = 6,
                           tags$h4("liste des parcs autorisés"),
                           tableOutput("liste_parc_autorise")
                           ),
                       box(
-                        width = 7,
+                        width = 6,
                         tags$h4("carte des nouveaux parcs du trimestre"),
                         mapviewOutput(outputId = "map_parc_autorise")
                         )
                       ),
              tabPanel(title = "Parcs mis en service",
-                      box(width = 5,
+                      box(width = 6,
                           tags$h4("liste des parcs en service"),
                           tableOutput("liste_parc_construits")
                           ),
-                      box(width = 7,
+                      box(width = 6,
                           tags$h4("carte des nouveaux parcs du trimestre"),
                           mapviewOutput(outputId = "map_parc_construits")
                           )
                       ),
              tabPanel(title = "Parcs refusés",
-                      box(width = 5,
+                      box(width = 6,
                           tags$h4("liste des parcs refusés"),
                           tableOutput("liste_parc_refuses")
                           ),
-                      box(width = 7,
+                      box(width = 6,
                           tags$h4("carte des parcs refusés"),
                           mapviewOutput(outputId = "map_parc_refuses")
                           )