data-raw/read.R

In earowang/sugrrants: Supporting Graphs for Analysing Time Series

# Loading libraries -----------------------------------------------------------
library(tidyverse)
library(lubridate)

# Pedestrian data
ped_counts <- read_csv("data-raw/pedestrian.csv")

hourly_peds <- ped_counts %>% 
  filter(Sensor_ID %in% c(18, 13, 6, 3, 9, 25, 30)) %>% 
  filter(Year > 2015) %>% 
  mutate(
    Date_Time = dmy_hm(Date_Time),
    Date = as_date(Date_Time),
    Month = month(Date, label = TRUE, abbr = FALSE),
    Day = wday(Date, label = TRUE, abbr = FALSE, week_start = 1),
  ) %>% 
  select(
    Date_Time, Date, Year, Month, Mdate, Day, Time, 
    Sensor_ID, Sensor_Name, Hourly_Counts
  )
hourly_peds <- hourly_peds[!duplicated(hourly_peds), ]

usethis::use_data(hourly_peds, overwrite = TRUE)

# Exchange rates
# ----------------------------written by @cpsievert---------------------------
# (1) Get a free plan from https://openexchangerates.org/signup/free
# (2) Tell this function your API key -- Sys.setenv("OER_KEY", "your-key-here")
# Sys.setenv("OER_KEY" = "")
getDay <- function(day) {
  u <- sprintf(
    "https://openexchangerates.org/api/historical/%s.json?app_id=%s",
    day, Sys.getenv("OER_KEY")
  )
  res <- jsonlite::fromJSON(u)
  res$rates$date <- as.POSIXct(res$timestamp, origin = "1970-01-01")
  data.frame(res$rates)
}

getRates <- function(start = end - 3, end = Sys.Date()) {
  days <- seq(start, end, by = "1 day")
  Reduce("rbind", lapply(days, getDay))
}

xrates <- getRates(start = Sys.Date() - 60)
# --------------------------END------------------------------------------------

# BoM data
# devtools::install_github("toowoombatrio/bomrang")
library(bomrang)
sydney <- get_current_weather("Sydney Airport Amo")
melbourne <- get_current_weather("Melbourne Airport")
brisbane <- get_current_weather("Brisbane Aero")
perth <- get_current_weather("Perth Airport")
adelaide <- get_current_weather("Adalaide Airport")
hobart <- get_current_weather("Hobart Airport")
canberra <- get_current_weather("Canberra Airport")
darwin <- get_current_weather("Darwin Airport")
au_weather <- bind_rows(
  sydney, melbourne, brisbane, perth, adelaide, hobart, canberra, darwin
 )