R/get_interval_resources.R

In bsuhy/EncompassR: Tools of analyzing Encompass Data

#' Get Interval Resource Data from Encompass
#'
#' @param dbase_connection A database connection 
#' @param scenario_id The id of the encompass scenario
#'
#' @return data.frame
#' @export
#'
#' @examples
#' \dontrun{
#' Set up a database connection
#' con <- DBI::dbConnect(odbc::odbc(), "MPWENCSQL01", database = "IRP - Brocks Test")
#' 
#' Run the query 
#' get_interval_resources(con, "SCMWM00003")
#' 
#' Close the database connection
#' DBI::dbDisconnect(con)
get_interval_resources <- function(dbase_connection, scenario_id){
  return_data <- DBI::dbGetQuery(
    conn = dbase_connection, 
    glue::glue(
      "select RunID, Date, Hour, ResourceID, Generation from dbo.oHourlyResourceResults_{scenario_id}"),
    scenario_id = scenario_id
  )
  return_data[is.na(return_data)] <- 0
  return_data$Date <- as.Date(return_data$Date)
  .data <- return_data
  .data
}