0.9.1.0 >> 0.9.1.1

minor improvements and fixes

Author: sbudai

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: entsoeapi
 Type: Package
 Title: An R Wrapper for the European Network of Transmission System Operators for Electricity Application Programming Interface
-Version: 0.9.1.0
+Version: 0.9.1.1
 Authors@R: c(person("Kenneth", "Rose",  role="aut",           email="kennethrose82@gmail.com"),
              person("Sándor",  "Budai", role=c("aut", "cre"), email="sbudai.ga@gmail.com"))
 Description: Simple and standardized wrappers around Entso-E API's Load, Generation,

NEWS.md

@@ -1,3 +1,13 @@
+# entsoeapi v0.9.1.1 (2026-02-21)
+
+## New functionality
+
+-   The beta versions of `implicit_offered_transfer_capacities()`, `explicit_offered_transfer_capacities()`, `continuous_offered_transfer_capacities()`, `flow_based_allocations()`, `auction_revenue()`, `expansion_and_dismantling_project()` and `intraday_cross_border_transfer_limits()` queries have been introduced.
+
+## Miscellaneous
+
+-   Minor under the hood improvements and fixes.
+
 # entsoeapi v0.9.1.0 (2026-02-20)
 
 ## New functionality

R/en_balancing.R

@@ -35,6 +35,7 @@ utils::globalVariables(
 #'   period_end   = lubridate::ymd(x = "2024-11-01", tz = "CET"),
 #'   tidy_output  = TRUE
 #' )
+#'
 #' str(df)
 #'
 elastic_demands <- function(
@@ -51,15 +52,14 @@ elastic_demands <- function(
   tidy_output = TRUE,
   security_token = Sys.getenv("ENTSOE_PAT")
 ) {
-
   # check if only one eic provided
   if (is.null(eic)) stop("One control area EIC should be provided.")
   if (length(eic) > 1L) {
     stop("This wrapper only supports one control area EIC per request.")
   }
 
   # check if proper process_type provided
-  if (!process_type %in% c("A47", "A51")) {
+  if (is.null(process_type) || !process_type %in% c("A47", "A51")) {
     stop("The 'process_type' should be 'A47' or 'A51'.")
   }
 
@@ -247,7 +247,7 @@ exchanged_volumes <- function(
   }
 
   # check if proper process_type provided
-  if (!process_type %in% c("A51", "A60", "A61")) {
+  if (is.null(process_type) || !process_type %in% c("A51", "A60", "A61")) {
     stop("The 'process_type' should be 'A51', 'A60' or 'A61'.")
   }
 
@@ -341,7 +341,7 @@ balancing_border_cap_limit <- function(
   # check if only one in and only one out eic provided
   if (is.null(eic_in)) stop("One 'in' control area EIC should be provided.")
   if (is.null(eic_out)) stop("One 'out' control area EIC should be provided.")
-  if (length(eic_in) > 1 || length(eic_out) > 1) {
+  if (length(eic_in) > 1L || length(eic_out) > 1L) {
     stop("This wrapper only supports one in and one out EIC per request.")
   }
 

R/en_market.R

@@ -394,32 +394,6 @@ flow_based_allocations <- function(
 
 
 
-# 4.2.6. Explicit Allocations (Use of the Transfer Capacity) [12.1.A]
-# 100 documents limit applies
-# Minimum time interval in query response ranges from part of day to year,
-# depending on selected Contract_MarketAgreement.Type
-# Mandatory parameters:
-# - DocumentType
-# - BusinessType
-# - Contract_MarketAgreement.Type
-# - In_Domain
-# - Out_Domain
-# - TimeInterval or combination of PeriodStart and PeriodEnd
-# Optional parameters:
-# - Auction.Category
-# - ClassificationSequence_AttributeInstanceComponent.Position
-# GET /api?documentType=A25
-# &businessType=B05
-# &contract_MarketAgreement.Type=A01
-# &in_Domain=10YSK-SEPS-----K
-# &out_Domain=10YCZ-CEPS-----N
-# &auction.Category=A01
-# &classificationSequence_AttributeInstanceComponent.Position=1
-# &periodStart=201601012300
-# &periodEnd=201601022300
-
-
-
 #' @title
 #' Get the Auction Revenue (12.1.A)
 #'
@@ -463,15 +437,15 @@ flow_based_allocations <- function(
 #' str(df)
 #'
 auction_revenue <- function(
-    eic_in = NULL,
-    eic_out = NULL,
-    period_start = lubridate::ymd(Sys.Date() - lubridate::days(x = 1L),
-                                  tz = "CET"),
-    period_end = lubridate::ymd(Sys.Date(),
+  eic_in = NULL,
+  eic_out = NULL,
+  period_start = lubridate::ymd(Sys.Date() - lubridate::days(x = 1L),
                                 tz = "CET"),
-    contract_type = "A01",
-    tidy_output = FALSE,
-    security_token = Sys.getenv("ENTSOE_PAT")
+  period_end = lubridate::ymd(Sys.Date(),
+                              tz = "CET"),
+  contract_type = "A01",
+  tidy_output = FALSE,
+  security_token = Sys.getenv("ENTSOE_PAT")
 ) {
   # check if only one eic provided
   if (is.null(eic_in)) stop("One 'in' control area EIC should be provided.")
@@ -806,10 +780,6 @@ day_ahead_prices <- function(
 
 
 
-# Implicit Allocations - Net positions  @@@@
-# Intraday Implicit Allocations - Congestion Income  @@@@
-# Daily Implicit Allocations - Congestion Income  @@@@
-# Daily Flow Based Allocations - Congestion Income  @@@@
 # 4.2.11. Implicit Auction — Net Positions [12.1.E]
 # One year range limit applies
 # Minimum time interval in query response is one day
@@ -857,7 +827,6 @@ day_ahead_prices <- function(
 
 
 # Transfer Capacities Allocated with Third Countries (Implicit)
-# Transfer Capacities Allocated with Third Countries
 # 4.2.16. Capacity Allocated Outside EU [12.1.H]  @@@@
 # 100 documents limit applies
 # Minimum time interval in query response ranges from part of day to year,

R/en_outages.R

@@ -750,7 +750,7 @@ outages_fallbacks <- function(
   # check if valid event_nature provided
   if (!event_nature %in% c("C47", "A53", "A54", "A83")) {
     stop("The 'event_nature' parameter should be ",
-         "'C47', 'A53', 'A54' or '83'.")
+         "'C47', 'A53', 'A54' or 'A83'.")
   }
 
   # check if valid security token is provided

R/en_transmission.R

@@ -76,14 +76,14 @@ expansion_and_dismantling_project <- function(
   # check if business_type value is valid
   if (isFALSE(business_type %in% c("B01", "B02"))) {
     stop(
-      "The 'doc_status' parameter should be 'B01', 'B02'."
+      "The 'business_type' parameter should be 'B01', 'B02'."
     )
   }
 
   # check if doc_status value is valid
   if (isFALSE(doc_status %in% c("A01", "A02", "A05", "A09", "A13", "X01"))) {
     stop(
-      "The 'doc_status' parameter should be 'A01', 'A02'",
+      "The 'doc_status' parameter should be 'A01', 'A02' ",
       "A05', 'A09', 'A13' or 'X01'."
     )
   }
@@ -99,8 +99,8 @@ expansion_and_dismantling_project <- function(
     "&out_Domain=", eic_out,
     "&periodStart=", period_start,
     "&periodEnd=", period_end,
-    "&=businessType", business_type,
-    "&=DocStatus", doc_status
+    "&businessType=", business_type,
+    "&DocStatus=", doc_status
   )
 
   # send GET request

R/utils.R

@@ -1257,10 +1257,7 @@ add_type_names <- function(tbl) {
       definition_name = "ts_auction_type_def"
     )
   }
-  if (
-    "subject_market_participant_market_role_type"
-    %in% names(tbl)
-  ) {
+  if ("subject_market_participant_market_role_type" %in% names(tbl)) {
     affected_cols <- c(
       affected_cols,
       "subject_market_participant_market_role_type"

man/elastic_demands.Rd

@@ -4,7 +4,6 @@ testthat::test_that(
     testthat::expect_no_error(
       object = elastic_demands(
         eic = "10YCZ-CEPS-----N",
-        process_type = "A47",
         period_start = lubridate::ymd(
           x = "2024-01-01",
           tz = "CET"
@@ -13,10 +12,15 @@ testthat::test_that(
           x = "2024-12-01",
           tz = "CET"
         ),
+        process_type = "A47",
         tidy_output = TRUE
       ),
       message = "uses offsetting"
     ) |>
+      testthat::expect_warning() |>
+      testthat::expect_warning() |>
+      testthat::expect_warning() |>
+      testthat::expect_warning() |>
       testthat::expect_warning()
     testthat::expect_no_error(
       object = elastic_demands(

tests/testthat/test-en_balancing.R

@@ -58,3 +58,150 @@ testthat::test_that(
     )
   }
 )
+
+
+
+testthat::test_that(
+  desc = "party_eic() works",
+  code = {
+    testthat::expect_no_error(object = party_eic())
+    testthat::expect_error(
+      object = party_eic("foo"),
+      info = "Error in party_eic('foo') : unused argument ('foo')"
+    )
+    tbl <- party_eic()
+    testthat::expect_s3_class(object = tbl, class = "tbl_df", exact = FALSE)
+    testthat::expect_gt(object = nrow(tbl), expected = 0L)
+    testthat::expect_contains(
+      object = names(tbl),
+      expected = c("EicCode", "EicLongName", "type")
+    )
+    testthat::expect_true(object = all(tbl$type == "X"))
+  }
+)
+
+
+
+testthat::test_that(
+  desc = "area_eic() works",
+  code = {
+    testthat::expect_no_error(object = area_eic())
+    testthat::expect_error(
+      object = area_eic("foo"),
+      info = "Error in area_eic('foo') : unused argument ('foo')"
+    )
+    tbl <- area_eic()
+    testthat::expect_s3_class(object = tbl, class = "tbl_df", exact = FALSE)
+    testthat::expect_gt(object = nrow(tbl), expected = 0L)
+    testthat::expect_contains(
+      object = names(tbl),
+      expected = c("EicCode", "EicLongName", "type")
+    )
+    testthat::expect_true(object = all(tbl$type == "Y"))
+  }
+)
+
+
+
+testthat::test_that(
+  desc = "accounting_point_eic() works",
+  code = {
+    testthat::expect_no_error(object = accounting_point_eic())
+    testthat::expect_error(
+      object = accounting_point_eic("foo"),
+      info = "Error in accounting_point_eic('foo') : unused argument ('foo')"
+    )
+    tbl <- accounting_point_eic()
+    testthat::expect_s3_class(object = tbl, class = "tbl_df", exact = FALSE)
+    testthat::expect_gt(object = nrow(tbl), expected = 0L)
+    testthat::expect_contains(
+      object = names(tbl),
+      expected = c("EicCode", "EicLongName", "type")
+    )
+    testthat::expect_true(object = all(tbl$type == "Z"))
+  }
+)
+
+
+
+testthat::test_that(
+  desc = "tie_line_eic() works",
+  code = {
+    testthat::expect_no_error(object = tie_line_eic())
+    testthat::expect_error(
+      object = tie_line_eic("foo"),
+      info = "Error in tie_line_eic('foo') : unused argument ('foo')"
+    )
+    tbl <- tie_line_eic()
+    testthat::expect_s3_class(object = tbl, class = "tbl_df", exact = FALSE)
+    testthat::expect_gt(object = nrow(tbl), expected = 0L)
+    testthat::expect_contains(
+      object = names(tbl),
+      expected = c("EicCode", "EicLongName", "type")
+    )
+    testthat::expect_true(object = all(tbl$type == "T"))
+  }
+)
+
+
+
+testthat::test_that(
+  desc = "location_eic() works",
+  code = {
+    testthat::expect_no_error(object = location_eic())
+    testthat::expect_error(
+      object = location_eic("foo"),
+      info = "Error in location_eic('foo') : unused argument ('foo')"
+    )
+    tbl <- location_eic()
+    testthat::expect_s3_class(object = tbl, class = "tbl_df", exact = FALSE)
+    testthat::expect_gt(object = nrow(tbl), expected = 0L)
+    testthat::expect_contains(
+      object = names(tbl),
+      expected = c("EicCode", "EicLongName", "type")
+    )
+    testthat::expect_true(object = all(tbl$type == "V"))
+  }
+)
+
+
+
+testthat::test_that(
+  desc = "resource_object_eic() works",
+  code = {
+    testthat::expect_no_error(object = resource_object_eic())
+    testthat::expect_error(
+      object = resource_object_eic("foo"),
+      info = "Error in resource_object_eic('foo') : unused argument ('foo')"
+    )
+    tbl <- resource_object_eic()
+    testthat::expect_s3_class(object = tbl, class = "tbl_df", exact = FALSE)
+    testthat::expect_gt(object = nrow(tbl), expected = 0L)
+    testthat::expect_contains(
+      object = names(tbl),
+      expected = c("EicCode", "EicLongName", "type")
+    )
+    testthat::expect_true(object = all(tbl$type == "W"))
+  }
+)
+
+
+
+testthat::test_that(
+  desc = "substation_eic() works",
+  code = {
+    testthat::expect_no_error(object = substation_eic())
+    testthat::expect_error(
+      object = substation_eic("foo"),
+      info = "Error in substation_eic('foo') : unused argument ('foo')"
+    )
+    tbl <- substation_eic()
+    testthat::expect_s3_class(object = tbl, class = "tbl_df", exact = FALSE)
+    testthat::expect_gt(object = nrow(tbl), expected = 0L)
+    testthat::expect_contains(
+      object = names(tbl),
+      expected = c("EicCode", "EicLongName", "type")
+    )
+    testthat::expect_true(object = all(tbl$type == "A"))
+  }
+)