Simon/beaumontmeteo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

minor edit

Browse source
This commit is contained in:
Simon 2025-10-02 10:42:13 +01:00
parent 25aaede9aa
commit 103e73a15f
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
app.R
View file

@ -20,7 +20,6 @@ headers.default <- add_headers(
) )
# Load station data # Load station data
allstations <- read.csv("data/allstations.csv")
# Define UI for application # Define UI for application
ui <- fluidPage( ui <- fluidPage(
@ -52,12 +51,7 @@ ui <- fluidPage(
sidebarLayout( sidebarLayout(
sidebarPanel( sidebarPanel(
width=2, width=2,
numericInput( numericInput(inputId = "daysBefore", label = "Nb jour à check:", value=10, min=1)
inputId = "daysBefore",
label = "Nb jour à check:",
value = 10,
min = 0
)
), ),
# Main panel for displaying plot # Main panel for displaying plot
@ -76,6 +70,8 @@ server <- function(input, output) {
# Render the plot # Render the plot
output$dataPlot <- renderPlot({ output$dataPlot <- renderPlot({
startdate <- format(Sys.Date() - input$daysBefore, "%Y-%m-%d") 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) 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 # Prepare colors