0.9.5.0 >> 0.9.5.1 the "unrelated dates occurred twice in the tidy ou…

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.5.0
+Version: 0.9.5.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 Market, Load, Generation,

NEWS.md

@@ -1,3 +1,13 @@
+# entsoeapi v0.9.5.1 (2026-03-09)
+
+## New functionality
+
+-   None.
+
+## Miscellaneous
+
+-   There seemed to be a bug in the tidy output of some functions (unrelated dates occurred twice in the tidy output). This issue has been resolved.
+
 # entsoeapi v0.9.5.0 (2026-03-05)
 
 ## New functionality

R/en_balancing.R

@@ -35,7 +35,7 @@ utils::globalVariables(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 elastic_demands <- function(
   eic = NULL,
@@ -113,7 +113,7 @@ elastic_demands <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 netted_volumes <- function(
   eic = NULL,
@@ -196,7 +196,8 @@ netted_volumes <- function(
 #'   period_end = lubridate::ymd(x = "2022-08-17", tz = "CET"),
 #'   tidy_output = TRUE
 #' )
-#' str(df1)
+#'
+#' dplyr::glimpse(df1)
 #'
 #' df2 <- entsoeapi::exchanged_volumes(
 #'   eic = "10YCZ-CEPS-----N",
@@ -206,7 +207,7 @@ netted_volumes <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df2)
+#' dplyr::glimpse(df2)
 #'
 exchanged_volumes <- function(
   eic = NULL,
@@ -290,7 +291,7 @@ exchanged_volumes <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 balancing_border_cap_limit <- function(
   eic_in = NULL,
@@ -375,7 +376,7 @@ balancing_border_cap_limit <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 exchanged_volumes_per_border <- function(
   acquiring_eic = NULL,
@@ -460,7 +461,7 @@ exchanged_volumes_per_border <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 hvdc_link_constrains <- function(
   eic_in = NULL,
@@ -551,7 +552,7 @@ hvdc_link_constrains <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 changes_to_bid_availability <- function(
   eic = NULL,
@@ -629,7 +630,7 @@ changes_to_bid_availability <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 current_balancing_state <- function(
   eic = NULL,
@@ -701,7 +702,7 @@ current_balancing_state <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 balancing_energy_bids <- function(
   eic = NULL,
@@ -777,7 +778,7 @@ balancing_energy_bids <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 aggregated_balancing_energy_bids <- function( # nolint: object_length_linter
   eic = NULL,
@@ -858,7 +859,7 @@ aggregated_balancing_energy_bids <- function( # nolint: object_length_linter
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 procured_balancing_capacity <- function(
   eic = NULL,
@@ -938,7 +939,7 @@ procured_balancing_capacity <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 allocation_of_cross_zonal_balancing_cap <- function( # nolint: object_length_linter
   eic_acquiring = NULL,
@@ -1037,7 +1038,7 @@ allocation_of_cross_zonal_balancing_cap <- function( # nolint: object_length_lin
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 contracted_reserves <- function(
   eic = NULL,
@@ -1119,7 +1120,7 @@ contracted_reserves <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 activated_balancing_prices <- function(
   eic = NULL,
@@ -1198,7 +1199,7 @@ activated_balancing_prices <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 imbalance_prices <- function(
   eic = NULL,
@@ -1269,7 +1270,7 @@ imbalance_prices <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 imbalance_volumes <- function(
   eic = NULL,
@@ -1340,7 +1341,7 @@ imbalance_volumes <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 financial_expenses_and_income_for_balancing <- function( # nolint: object_length_linter
   eic = NULL,
@@ -1411,7 +1412,7 @@ financial_expenses_and_income_for_balancing <- function( # nolint: object_length
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 fcr_total_capacity <- function(
   eic = NULL,
@@ -1487,7 +1488,7 @@ fcr_total_capacity <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 shares_of_fcr_capacity <- function(
   eic = NULL,
@@ -1568,7 +1569,7 @@ shares_of_fcr_capacity <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 rr_and_frr_actual_capacity <- function(
   eic = NULL,
@@ -1638,7 +1639,7 @@ rr_and_frr_actual_capacity <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #'
 rr_actual_capacity <- function(
   eic = NULL,
@@ -1713,7 +1714,7 @@ rr_actual_capacity <- function(
 #'   tidy_output = TRUE
 #' )
 #'
-#' str(df)
+#' dplyr::glimpse(df)
 #' }
 #'
 sharing_of_frr_capacity <- function(

R/en_generation.R

@@ -33,7 +33,8 @@ utils::globalVariables(
 #'   psr_type = "B05",
 #'   year = 2020
 #' )
-#' str(df)
+#'
+#' dplyr::glimpse(df)
 #'
 gen_installed_capacity_per_pt <- function(
   eic = NULL,
@@ -98,7 +99,8 @@ gen_installed_capacity_per_pt <- function(
 #'   year     = 2020,
 #'   psr_type = "B05"
 #' )
-#' str(df)
+#'
+#' dplyr::glimpse(df)
 #'
 gen_installed_capacity_per_pu <- function(
   eic = NULL,
@@ -176,7 +178,8 @@ gen_installed_capacity_per_pu <- function(
 #'   gen_type     = NULL,
 #'   tidy_output  = TRUE
 #' )
-#' str(df)
+#'
+#' dplyr::glimpse(df)
 #'
 gen_per_prod_type <- function(
   eic = NULL,
@@ -254,7 +257,8 @@ gen_per_prod_type <- function(
 #'   period_end   = lubridate::ymd(x = "2021-02-15", tz = "CET"),
 #'   tidy_output  = TRUE
 #' )
-#' str(df)
+#'
+#' dplyr::glimpse(df)
 #'
 gen_storage_mean_filling_rate <- function(
   eic = NULL,
@@ -325,7 +329,8 @@ gen_storage_mean_filling_rate <- function(
 #'   gen_type     = c("B04", "B05"),
 #'   tidy_output  = TRUE
 #' )
-#' str(df)
+#'
+#' dplyr::glimpse(df)
 #'
 gen_per_gen_unit <- function(
   eic = NULL,
@@ -489,7 +494,8 @@ gen_per_gen_unit <- function(
 #'   period_end   = lubridate::ymd(x = "2020-03-01", tz = "CET"),
 #'   tidy_output  = TRUE
 #' )
-#' str(df)
+#'
+#' dplyr::glimpse(df)
 #'
 gen_day_ahead_forecast <- function(
   eic = NULL,
@@ -561,9 +567,10 @@ gen_day_ahead_forecast <- function(
 #'   period_end   = lubridate::ymd(x = "2020-03-01", tz = "CET"),
 #'   tidy_output  = TRUE
 #' )
-#' str(df_list$`Day-ahead`)
-#' str(df_list$`Intraday`)
-#' str(df_list$`Current`)
+#'
+#' dplyr::glimpse(df_list$`Day-ahead`)
+#' dplyr::glimpse(df_list$`Intraday`)
+#' dplyr::glimpse(df_list$`Current`)
 #'
 gen_wind_solar_forecasts <- function(
   eic = NULL,

R/en_helpers.R

@@ -41,7 +41,7 @@ mh <- cachem::cache_mem(max_age = 3600)
 #' @examples
 #' eic_party <- entsoeapi::party_eic()
 #'
-#' str(eic_party)
+#' dplyr::glimpse(eic_party)
 #'
 party_eic <- function() {
   # set the link of the csv file
@@ -86,7 +86,7 @@ party_eic <- function() {
 #' @examples
 #' eic_area <- entsoeapi::area_eic()
 #'
-#' str(eic_area)
+#' dplyr::glimpse(eic_area)
 #'
 area_eic <- function() {
   # set the link of the csv file
@@ -133,7 +133,7 @@ area_eic <- function() {
 #' @examples
 #' eic_accounting_point <- entsoeapi::accounting_point_eic()
 #'
-#' str(eic_accounting_point)
+#' dplyr::glimpse(eic_accounting_point)
 #'
 accounting_point_eic <- function() {
   # set the link of the csv file
@@ -180,7 +180,7 @@ accounting_point_eic <- function() {
 #' @examples
 #' eic_tie_line <- entsoeapi::tie_line_eic()
 #'
-#' str(eic_tie_line)
+#' dplyr::glimpse(eic_tie_line)
 #'
 tie_line_eic <- function() {
   # set the link of the csv file
@@ -226,7 +226,7 @@ tie_line_eic <- function() {
 #' @examples
 #' eic_location <- entsoeapi::location_eic()
 #'
-#' str(eic_location)
+#' dplyr::glimpse(eic_location)
 #'
 location_eic <- function() {
   # set the link of the csv file
@@ -273,7 +273,7 @@ location_eic <- function() {
 #' @examples
 #' eic_resource_object <- entsoeapi::resource_object_eic()
 #'
-#' str(eic_resource_object)
+#' dplyr::glimpse(eic_resource_object)
 #'
 resource_object_eic <- function() {
   # set the link of the csv file
@@ -325,7 +325,7 @@ resource_object_eic <- function() {
 #' @examples
 #' eic_substation <- entsoeapi::substation_eic()
 #'
-#' str(eic_substation)
+#' dplyr::glimpse(eic_substation)
 #'
 substation_eic <- function() {
   # set the link of the csv file
@@ -372,7 +372,7 @@ substation_eic <- function() {
 #' @examples
 #' eic_all <- entsoeapi::all_approved_eic()
 #'
-#' str(eic_all)
+#' dplyr::glimpse(eic_all)
 #'
 all_approved_eic <- function() {
   list(