minor edit

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