R/get_system_real.R

In snailwellington/RODER: What the Package Does (One Line, Title Case)

#' Get System real data
#'
#'
#' @export
#' @import dplyr
#' @import httr
#'
get_system_real <- function(query_start = paste(Sys.Date()-31,"00:00"),query_end = paste(Sys.Date()-1,"00:00")){


  ## Defined GET address
  URL <- "http://dashboard.elering.ee/api/system/with-plan?start=&end="

  ## GET data with httr
  json_data <- httr::GET(URL,
                         query= list(start = query_start,end = query_end))

  ## turn data to dataframe and reformat to datetime series
  dataset_real <- jsonlite::fromJSON(json_data$url)$data[1] %>%
    as.data.frame() %>%
    rename(datetime = real.timestamp) %>%
    mutate(datetime = as.POSIXct(datetime,tz = "", origin="1970-01-01"))

  ## return output
  return(dataset_real)

}