R/getAllHourlySystemLoadForecastForDay.R

In noahbullock/rISONE: R ISO-NE

#' Get All Hourly System Load Forecast For Day
#' 
#' Get all hourly load forecasts for a given day. May need to add \code{config = httr::config(ssl.verifypeer = FALSE)} if SSL cert cant be found.
#' 
#' @param day date in \code{'\%Y-\%m-\%d'}, or object coercible to class \code{Date}
#' @param user user account
#' @param password password
#' @param out.tz output timezone.
#' @param ... passed to httr functions.
#' @importFrom lubridate mdy_hms
#' @importFrom httr GET authenticate accept_json config
#' @importFrom RJSONIO fromJSON
#' @importFrom dplyr rbind_all
#' @export
getAllHourlySystemLoadForecastForDay <- function(day = Sys.Date(), user = getOption(x = "ISO_NE_USER"), password = getOption(x = "ISO_NE_PASSWORD"), 
                                           out.tz = "America/New_York", ...){
  
  dd <- format(as.Date(day), "%Y%m%d")
  
  json <- get_path(path = paste0("/hourlyloadforecast/all/day/", dd), user = user, password = password, ...)
  
  dat <- dplyr::rbind_all(lapply(json$HourlyLoadForecasts$HourlyLoadForecast, 
                        FUN = function(x) as.data.frame(x = x, stringsAsFactors = FALSE)))
  
  dat$BeginDate <- lubridate::ymd_hms(dat$BeginDate, tz = out.tz)
  dat$CreationDate <- lubridate::ymd_hms(dat$CreationDate, tz = out.tz)
  
  return(dat)
  
}