add all station in data

This commit is contained in:
Simon 2025-10-02 10:39:03 +01:00
parent 51e65acee6
commit 25aaede9aa

4
app.R
View file

@ -11,7 +11,7 @@ library(shinycssloaders) # For the spinner
lapply(list.files(path = "R", pattern = "\\.R$", full.names = T), source) lapply(list.files(path = "R", pattern = "\\.R$", full.names = T), source)
source("secrets") source("data/secrets")
# Create a Bearer token header # Create a Bearer token header
headers.default <- add_headers( headers.default <- add_headers(
@ -20,7 +20,7 @@ headers.default <- add_headers(
) )
# Load station data # Load station data
allstations <- read.csv("allstations.csv") allstations <- read.csv("data/allstations.csv")
# Define UI for application # Define UI for application
ui <- fluidPage( ui <- fluidPage(