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)
|
||||
|
||||
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(
|
||||
|
|
|
|||
Loading…
Reference in a new issue