DarkSky Time Machine API

darksky.R

library(tidyverse)
library(glue)
library(httr)
library(jsonlite)
library(lubridate)
library(purrr)

token <- NA

base <- "https://api.darksky.net/forecast/{token}/" %>% 
  glue() %>% 
  str_c()

exclude <- "?exclude=currently,flags"

requests <- seq(as_datetime("2015-12-01 12:00:00", tz = "MST"),
    as_datetime("2018-01-01 12:00:00", tz = "MST"),
    by = "1 day") %>% 
  as.numeric() %>% 
  purrr::map(function(req_date){
    glue("{base}35.110833,-106.61,{req_date}") %>% 
      str_c() %>%
      GET()
  })

weather_data <- requests %>% 
  map_df(function(resp){
    d <- content(resp) %>% 
      .$daily %>% 
      .$data
    d %>% 
      unlist() %>% 
      t() %>% 
      as_tibble()
  })