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)
source("secrets")
source("data/secrets")
# Create a Bearer token header
headers.default <- add_headers(
@ -20,7 +20,7 @@ headers.default <- add_headers(
)
# Load station data
allstations <- read.csv("allstations.csv")
allstations <- read.csv("data/allstations.csv")
# Define UI for application
ui <- fluidPage(