add all station in data
This commit is contained in:
parent
51e65acee6
commit
25aaede9aa
1 changed files with 2 additions and 2 deletions
4
app.R
4
app.R
|
|
@ -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(
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue