From 103e73a15fd1a9b92d5f771419dfd16233230d5f Mon Sep 17 00:00:00 2001
From: Simon <simon@elisya.org>
Date: Thu, 2 Oct 2025 10:42:13 +0100
Subject: [PATCH] minor edit

---
 app.R | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/app.R b/app.R
index 7bb1916..42601d1 100644
--- a/app.R
+++ b/app.R
@@ -20,7 +20,6 @@ headers.default <- add_headers(
 )
 
 # Load station data
-allstations <- read.csv("data/allstations.csv")
 
 # Define UI for application
 ui <- fluidPage(
@@ -52,12 +51,7 @@ ui <- fluidPage(
   sidebarLayout(
     sidebarPanel(
       width=2,
-      numericInput(
-        inputId = "daysBefore",
-        label = "Nb jour à  check:",
-        value = 10,
-        min = 0
-      )
+      numericInput(inputId = "daysBefore", label = "Nb jour à  check:", value=10, min=1)
     ),
     
     # Main panel for displaying plot
@@ -76,6 +70,8 @@ server <- function(input, output) {
   # Render the plot
   output$dataPlot <- renderPlot({
     startdate <- format(Sys.Date() - input$daysBefore, "%Y-%m-%d")
+    vignass.coor=c(44.8550665,5.8441789)
+    allstations <- read.csv("data/allstations.csv")
     test1 <- getAllFromCoord(vignass.coor, start_date = startdate, end_date = format(Sys.Date(), "%Y-%m-%d"), allstations, headers = headers.default,btw_station_sleep = .5,within_statio_sleep = 1)
     
     # Prepare colors