Get Costs of Congestion Management (13.1.C) — costs_of_congestion

Costs of TSO for redispatching and counter trading together with costs for any other remedial actions taken to relieve congested lines in transmission grid.

Usage

costs_of_congestion_management(
  eic = NULL,
  period_start = lubridate::ymd(Sys.Date() - lubridate::days(x = 31L), tz = "CET"),
  period_end = lubridate::ymd(Sys.Date(), tz = "CET"),
  event_nature = NULL,
  tidy_output = TRUE,
  security_token = Sys.getenv("ENTSOE_PAT")
)

Arguments

eic: Energy Identification Code of the control area
period_start: POSIXct or YYYY-MM-DD HH:MM:SS format One year range limit applies
period_end: POSIXct or YYYY-MM-DD HH:MM:SS format One year range limit applies
event_nature: "A46" for system Operator redispatching "B03" for counter trade "B04" for congestion costs Defaults to NULL which means both of them.
tidy_output: Defaults to TRUE. If TRUE, then flatten nested tables.
security_token: Security token for ENTSO-E transparency platform

Examples

# Belgium's Costs of Congestion Management
df <- entsoeapi::costs_of_congestion_management(
  eic = "10YBE----------2",
  period_start = lubridate::ymd(x = "2016-01-01", tz = "CET"),
  period_end = lubridate::ymd(x = "2016-12-31", tz = "CET"),
  tidy_output = TRUE
)
#> 
#> ── API call ────────────────────────────────────────────────────────────────────────────────────────────────────────────
#> → https://web-api.tp.entsoe.eu/api?documentType=A92&in_Domain=10YBE----------2&out_Domain=10YBE----------2&periodStart=201512312300&periodEnd=201612302300&securityToken=<...>
#> <- HTTP/2 200 
#> <- date: Thu, 05 Mar 2026 16:11:54 GMT
#> <- content-type: text/xml
#> <- content-disposition: inline; filename="Cost of Congestion Management_201512312300-201612302300.xml"
#> <- x-content-type-options: nosniff
#> <- x-xss-protection: 0
#> <- vary: accept-encoding
#> <- content-encoding: gzip
#> <- strict-transport-security: max-age=15724800; includeSubDomains
#> <- 
#> ✔ response has arrived
#> ℹ No additional definitions added!

str(df)
#> tibble [36 × 18] (S3: tbl_df/tbl/data.frame)
#>  $ ts_in_domain_mrid     : chr [1:36] "10YBE----------2" "10YBE----------2" "10YBE----------2" "10YBE----------2" ...
#>  $ ts_in_domain_name     : chr [1:36] "Belgium" "Belgium" "Belgium" "Belgium" ...
#>  $ ts_out_domain_mrid    : chr [1:36] "10YBE----------2" "10YBE----------2" "10YBE----------2" "10YBE----------2" ...
#>  $ ts_out_domain_name    : chr [1:36] "Belgium" "Belgium" "Belgium" "Belgium" ...
#>  $ type                  : chr [1:36] "A92" "A92" "A92" "A92" ...
#>  $ type_def              : chr [1:36] "Congestion costs" "Congestion costs" "Congestion costs" "Congestion costs" ...
#>  $ process_type          : chr [1:36] "A16" "A16" "A16" "A16" ...
#>  $ process_type_def      : chr [1:36] "Realised" "Realised" "Realised" "Realised" ...
#>  $ ts_business_type      : chr [1:36] "B03" "B03" "B03" "B03" ...
#>  $ ts_business_type_def  : chr [1:36] "Counter trade" "Counter trade" "Counter trade" "Counter trade" ...
#>  $ created_date_time     : POSIXct[1:36], format: "2026-03-05 16:11:54" "2026-03-05 16:11:54" "2026-03-05 16:11:54" "2026-03-05 16:11:54" ...
#>  $ revision_number       : num [1:36] 1 1 1 1 1 1 1 1 1 1 ...
#>  $ ts_resolution         : chr [1:36] "P1M" "P1M" "P1M" "P1M" ...
#>  $ ts_time_interval_start: POSIXct[1:36], format: "2015-12-31 23:00:00" "2015-12-31 23:00:00" "2015-12-31 23:00:00" "2015-12-31 23:00:00" ...
#>  $ ts_time_interval_end  : POSIXct[1:36], format: "2016-12-31 23:00:00" "2016-12-31 23:00:00" "2016-12-31 23:00:00" "2016-12-31 23:00:00" ...
#>  $ ts_mrid               : num [1:36] 1 1 1 1 1 1 1 1 1 1 ...
#>  $ ts_point_dt_start     : POSIXct[1:36], format: "2015-12-31 23:00:00" "2016-01-31 23:00:00" "2016-03-02 23:00:00" "2016-03-31 23:00:00" ...
#>  $ ts_currency_unit_name : chr [1:36] "EUR" "EUR" "EUR" "EUR" ...