renommage du script de collecte et de préparation des données

essai non abouti de commande d'actualisation des données depuis l'application (switchInput)

global.R

@@ -12,7 +12,8 @@ library(ggplot2)
 library(zoo)
 library(hrbrthemes)
 library(plotly)
+library(shinyWidgets)
 
-# source('explo_eolien.R')
+# source('prepa_eolien.R')
 
 load("eolien_pv_trim_shiny.RData")

server.R

 
+# load("eolien_pv_trim_shiny.RData") # çà plante : Warning: Error in filter: object 'parcs_eolien_tableau' not found ...
+
 function(input, output, session) {
 
+  # actualisation des données ------
+  # eventReactive(input$source,{
+  #   if(TRUE){
+  #     source('prepa_eolien.R',local = TRUE)
+  #     source(global.R)
+  #     runApp()
+  #   }
+  # })
+
   # tableau source DREAL ---------
 
   output$tableau_dreal <- renderTable({

ui.R

@@ -6,7 +6,10 @@ sidebarLayout(
                 label = "selectionner un trimestre",
                 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)
     ),
   mainPanel(
     fluidPage(
@@ -36,7 +39,7 @@ sidebarLayout(
     tags$br(),
     tags$br(),
     fluidPage(
-      tags$h3(textOutput("trimestre_onglet")),
+      tags$h2(textOutput("trimestre_onglet")),
       checkboxInput("stock_flux", "Limiter les données au seul flux du trimestre", value = FALSE, width = NULL),
       tabBox(type = "tabs",
              width = 12,