Début implémentation bouton maj des données

.gitignore

@@ -3,3 +3,5 @@
 .Rhistory
 **.RData
 .Ruserdata
+design*
+rsconnect

global.R

@@ -14,6 +14,4 @@ library(hrbrthemes)
 library(plotly)
 library(shinyWidgets)
 
-# source('prepa_eolien.R')
-
 load("eolien_pv_trim_shiny.RData")

ui.R

@@ -4,12 +4,14 @@ sidebarLayout(
     width = 2,
     selectInput(inputId = "select_trim",
                 label = "selectionner un trimestre",
-                choices = quarter(ymd(seq.Date(as.Date("2015-01-01"),Sys.Date() -90 , by = "quarter")), type = "year.quarter"),
+                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")
                 ),
-    # shinyWidgets::switchInput(inputId = "source",
-    #                           label = "actualiser les données",
-    #                           value = FALSE)
+    actionButton(
+      inputId = "source",
+      label = "Mettre \u00e0 jour les donn\u00e9es"
+    ),
+
     ),
   mainPanel(
     fluidPage(
@@ -40,7 +42,7 @@ sidebarLayout(
     tags$br(),
     fluidPage(
       tags$h2(textOutput("trimestre_onglet")),
-      checkboxInput("stock_flux", "Limiter les données au seul flux du trimestre", value = FALSE, width = NULL),
+      checkboxInput("stock_flux", "Limiter les donn\u00e9es au seul flux du trimestre", value = FALSE, width = NULL),
       tabBox(type = "tabs",
              width = 12,
              height = 1000,
@@ -50,20 +52,19 @@ sidebarLayout(
                           DT::DTOutput("liste_parc_instruction")
                           ),
                       box(width = 6,
-                          tags$h4("carte des parcs et mâts en instruction"),
+                          tags$h4("carte des parcs et m\u00e2ts en instruction"),
                           mapviewOutput(outputId = "map_parc_instruction")
                           )
                       ),
-             tabPanel(title = "Parcs autorisés",
+             tabPanel(title = "Parcs autoris\u00e9s",
                       box(width = 6,
-                          tags$h4("liste des parcs autorisés"),
+                          tags$h4("liste des parcs autoris\u00e9s"),
                           DT::DTOutput("liste_parc_autorise")
                           ),
-                      box(
-                        width = 6,
-                        tags$h4("carte des parcs et mâts autorisés"),
-                        mapviewOutput(outputId = "map_parc_autorise")
-                        )
+                      box(width = 6,
+                          tags$h4("carte des parcs et m\u00e2ts autoris\u00e9s"),
+                          mapviewOutput(outputId = "map_parc_autorise")
+                          )
                       ),
              tabPanel(title = "Parcs mis en service",
                       box(width = 6,
@@ -71,17 +72,17 @@ sidebarLayout(
                           DT::DTOutput("liste_parc_construits")
                           ),
                       box(width = 6,
-                          tags$h4("carte des parcs et mâts mis en service"),
+                          tags$h4("carte des parcs et m\u00e2ts mis en service"),
                           mapviewOutput(outputId = "map_parc_construits")
                           )
                       ),
-             tabPanel(title = "Parcs refusés",
+             tabPanel(title = "Parcs refus\u00e9s",
                       box(width = 6,
-                          tags$h4("liste des parcs refusés"),
+                          tags$h4("liste des parcs refus\u00e9s"),
                           DT::DTOutput("liste_parc_refuses")
                           ),
                       box(width = 6,
-                          tags$h4("carte des parcs et mâts refusés"),
+                          tags$h4("carte des parcs et m\u00e2ts refus\u00e9s"),
                           mapviewOutput(outputId = "map_parc_refuses")
                           )
                       )