get weather data by darksky api

darkskyWeather.R

rm(list=ls())

library(darksky)
library(data.table)
library(dplyr)

darksky_api_key()

setStart <- "2016-11-27"
setEnd <- "2016-11-30"

setDate <- paste0(seq.Date(as.Date(setStart),as.Date(setEnd),by = "day"),"T12:00:00-04:00")
weatherList <- lapply(
  setDate,function(x) {
    get_forecast_for(25.050144, 121.510296,units = "ca", x)
  }
)

weatherDat <- rbindlist(
  lapply(weatherList,function(x) {
    result <- x$hourly %>%
      dplyr::select(time,summary,precipType,temperature,windSpeed,cloudCover,pressure)
    return(result)
  })
)