diff --git a/DESCRIPTION b/DESCRIPTION index 532cb0b6..e8e0ac1b 100644 --- a/DESCRIPTION +++ b/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, diff --git a/NEWS.md b/NEWS.md index 76836153..07c843b7 100644 --- a/NEWS.md +++ b/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 diff --git a/R/en_balancing.R b/R/en_balancing.R index aedd1ae5..3bcd4139 100644 --- a/R/en_balancing.R +++ b/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( diff --git a/R/en_generation.R b/R/en_generation.R index 719ba68a..ae2c3ff3 100644 --- a/R/en_generation.R +++ b/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, diff --git a/R/en_helpers.R b/R/en_helpers.R index d9f65b82..24837e2c 100644 --- a/R/en_helpers.R +++ b/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( diff --git a/R/en_load.R b/R/en_load.R index 301cb1b0..031fb892 100644 --- a/R/en_load.R +++ b/R/en_load.R @@ -39,7 +39,7 @@ utils::globalVariables( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' load_actual_total <- function( eic = NULL, @@ -117,7 +117,7 @@ load_actual_total <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' load_day_ahead_total_forecast <- function( eic = NULL, @@ -193,7 +193,7 @@ load_day_ahead_total_forecast <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' load_week_ahead_total_forecast <- function( eic = NULL, @@ -269,7 +269,7 @@ load_week_ahead_total_forecast <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' load_month_ahead_total_forecast <- function( # nolint: object_length_linter eic = NULL, @@ -345,7 +345,7 @@ load_month_ahead_total_forecast <- function( # nolint: object_length_linter #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' load_year_ahead_total_forecast <- function( eic = NULL, @@ -419,7 +419,7 @@ load_year_ahead_total_forecast <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' load_year_ahead_forecast_margin <- function( # nolint: object_length_linter eic = NULL, diff --git a/R/en_market.R b/R/en_market.R index beae47a9..9c7ac526 100644 --- a/R/en_market.R +++ b/R/en_market.R @@ -42,7 +42,7 @@ utils::globalVariables( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' implicit_offered_transfer_capacity <- function( # nolint: object_length_linter eic_in = NULL, @@ -133,7 +133,7 @@ implicit_offered_transfer_capacity <- function( # nolint: object_length_linter #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' explicit_offered_transfer_capacity <- function( # nolint: object_length_linter eic_in = NULL, @@ -216,7 +216,7 @@ explicit_offered_transfer_capacity <- function( # nolint: object_length_linter #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' continuous_offered_transfer_capacity <- function( # nolint: object_length_linter eic_in = NULL, @@ -300,7 +300,7 @@ continuous_offered_transfer_capacity <- function( # nolint: object_length_linter #' tidy_output = TRUE #' ) #' -#' str(df1) +#' dplyr::glimpse(df1) #' #' df2 <- entsoeapi::flow_based_allocations( #' eic = "10YDOM-REGION-1V", @@ -311,7 +311,7 @@ continuous_offered_transfer_capacity <- function( # nolint: object_length_linter #' tidy_output = TRUE #' ) #' -#' str(df2) +#' dplyr::glimpse(df2) #' flow_based_allocations <- function( eic = NULL, @@ -400,7 +400,7 @@ flow_based_allocations <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' auction_revenue <- function( eic_in = NULL, @@ -483,7 +483,7 @@ auction_revenue <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' total_nominated_capacity <- function( eic_in = NULL, @@ -578,7 +578,7 @@ total_nominated_capacity <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' already_allocated_total_capacity <- function( # nolint: object_length_linter eic_in = NULL, @@ -664,7 +664,7 @@ already_allocated_total_capacity <- function( # nolint: object_length_linter #' tidy_output = TRUE #' ) #' -#' str(df1) +#' dplyr::glimpse(df1) #' #' df2 <- entsoeapi::day_ahead_prices( #' eic = "10Y1001A1001A82H", @@ -672,7 +672,7 @@ already_allocated_total_capacity <- function( # nolint: object_length_linter #' period_end = lubridate::ymd(x = "2026-02-13", tz = "CET"), #' tidy_output = TRUE #' ) -#' str(df2) +#' dplyr::glimpse(df2) #' day_ahead_prices <- function( eic = NULL, @@ -747,7 +747,7 @@ day_ahead_prices <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' net_positions <- function( eic = NULL, @@ -834,7 +834,7 @@ net_positions <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' congestion_income <- function( eic = NULL, @@ -934,7 +934,7 @@ congestion_income <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' allocated_transfer_capacities_3rd_countries <- function( # nolint: object_length_linter eic_in = NULL, diff --git a/R/en_outages.R b/R/en_outages.R index 38a26945..6cab341a 100644 --- a/R/en_outages.R +++ b/R/en_outages.R @@ -52,7 +52,7 @@ utils::globalVariables( #' ) #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' outages_both <- function( eic = NULL, @@ -156,7 +156,7 @@ outages_both <- function( #' ) #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' outages_gen_units <- function( eic = NULL, @@ -264,7 +264,7 @@ outages_gen_units <- function( #' ) #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' outages_prod_units <- function( eic = NULL, @@ -363,7 +363,7 @@ outages_prod_units <- function( #' period_end = lubridate::ymd(x = Sys.Date(), tz = "CET") #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' outages_offshore_grid <- function( eic = NULL, @@ -460,7 +460,7 @@ outages_offshore_grid <- function( #' period_end = lubridate::ymd(x = "2024-04-11", tz = "CET") #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' outages_cons_units <- function( eic = NULL, @@ -583,7 +583,7 @@ outages_cons_units <- function( #' period_end_update = lubridate::ymd(x = Sys.Date(), tz = "CET") #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' outages_transmission_grid <- function( eic_in = NULL, @@ -698,7 +698,7 @@ outages_transmission_grid <- function( #' process_type = "A51", #' event_nature = "C47") #' -#' str(df) +#' dplyr::glimpse(df) #' outages_fallbacks <- function( eic = NULL, diff --git a/R/en_transmission.R b/R/en_transmission.R index 421f4d89..4f07b1d4 100644 --- a/R/en_transmission.R +++ b/R/en_transmission.R @@ -49,7 +49,7 @@ utils::globalVariables( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' expansion_and_dismantling_project <- function( # nolint: object_length_linter eic_in = NULL, @@ -135,7 +135,7 @@ expansion_and_dismantling_project <- function( # nolint: object_length_linter #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' intraday_cross_border_transfer_limits <- function( # nolint: object_length_linter eic_in = NULL, @@ -208,7 +208,7 @@ intraday_cross_border_transfer_limits <- function( # nolint: object_length_linte #' tidy_output = TRUE #' ) #' -#' str(df1) +#' dplyr::glimpse(df1) #' #' df2 <- entsoeapi::forecasted_transfer_capacities( #' eic_in = "10YDK-1--------W", @@ -218,7 +218,7 @@ intraday_cross_border_transfer_limits <- function( # nolint: object_length_linte #' tidy_output = TRUE #' ) #' -#' str(df2) +#' dplyr::glimpse(df2) #' forecasted_transfer_capacities <- function( eic_in = NULL, @@ -292,7 +292,7 @@ forecasted_transfer_capacities <- function( #' period_end = lubridate::ymd(x = "2019-12-01", tz = "CET"), #' tidy_output = TRUE #' ) -#' str(df1) +#' dplyr::glimpse(df1) #' #' df2 <- entsoeapi::day_ahead_commercial_sched( #' eic_in = "10YDK-1--------W", @@ -301,7 +301,7 @@ forecasted_transfer_capacities <- function( #' period_end = lubridate::ymd(x = "2019-12-01", tz = "CET"), #' tidy_output = TRUE #' ) -#' str(df2) +#' dplyr::glimpse(df2) #' day_ahead_commercial_sched <- function( eic_in = NULL, @@ -376,7 +376,8 @@ day_ahead_commercial_sched <- function( #' period_end = lubridate::ymd(x = "2019-12-01", tz = "CET"), #' tidy_output = TRUE #' ) -#' str(df1) +#' +#' dplyr::glimpse(df1) #' #' df2 <- entsoeapi::total_commercial_sched( #' eic_in = "10YDK-1--------W", @@ -385,7 +386,8 @@ day_ahead_commercial_sched <- function( #' period_end = lubridate::ymd(x = "2019-12-01", tz = "CET"), #' tidy_output = TRUE #' ) -#' str(df2) +#' +#' dplyr::glimpse(df2) #' total_commercial_sched <- function( eic_in = NULL, @@ -459,7 +461,7 @@ total_commercial_sched <- function( #' tidy_output = TRUE #' ) #' -#' str(df1) +#' dplyr::glimpse(df1) #' #' df2 <- entsoeapi::cross_border_physical_flows( #' eic_in = "10YCZ-CEPS-----N", @@ -469,7 +471,7 @@ total_commercial_sched <- function( #' tidy_output = TRUE #' ) #' -#' str(df2) +#' dplyr::glimpse(df2) #' cross_border_physical_flows <- function( eic_in = NULL, @@ -543,7 +545,7 @@ cross_border_physical_flows <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' redispatching_cross_border <- function( eic_in = NULL, @@ -611,7 +613,7 @@ redispatching_cross_border <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' redispatching_internal <- function( eic = NULL, @@ -681,7 +683,7 @@ redispatching_internal <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' countertrading <- function( eic_in = NULL, @@ -754,7 +756,7 @@ countertrading <- function( #' tidy_output = TRUE #' ) #' -#' str(df) +#' dplyr::glimpse(df) #' costs_of_congestion_management <- function( eic = NULL, diff --git a/R/utils.R b/R/utils.R index e0cbbe72..4868bd4c 100644 --- a/R/utils.R +++ b/R/utils.R @@ -289,13 +289,14 @@ extract_leaf_twig_branch <- function(nodesets) { #' @noRd tidy_or_not <- function(tbl, tidy_output = FALSE) { # detect if there is any 'bid_ts_' column names - bid_ts_cols <- stringr::str_subset( + have_bid_ts_col <- stringr::str_detect( string = names(tbl), pattern = "^bid_ts_" - ) + ) |> + any() # convert the original 'bid_ts_' column names to 'ts_' - if (length(bid_ts_cols) > 0L) { + if (have_bid_ts_col) { names(tbl) <- names(tbl) |> stringr::str_replace_all( pattern = "^bid_ts_", @@ -318,7 +319,7 @@ tidy_or_not <- function(tbl, tidy_output = FALSE) { # if there is no ts_point_ column if (length(ts_point_cols) == 0L) { # convert the original 'bid_ts_' column names back - if (length(bid_ts_cols) > 0L) { + if (have_bid_ts_col) { names(tbl) <- names(tbl) |> stringr::str_replace_all( pattern = "^ts_", @@ -437,9 +438,9 @@ tidy_or_not <- function(tbl, tidy_output = FALSE) { data.table::as.data.table() # fill the missing values with the last observation carry forward method - group_cols <- c("ts_resolution", "ts_mrid") + group_cols_adj <- c("ts_resolution", "ts_mrid") tbl_adj <- tbl_adj |> - dplyr::group_by(dplyr::across(tidyselect::all_of(group_cols))) |> + dplyr::group_by(dplyr::across(tidyselect::all_of(group_cols_adj))) |> tidyr::fill(dplyr::everything()) |> dplyr::ungroup() @@ -515,7 +516,7 @@ tidy_or_not <- function(tbl, tidy_output = FALSE) { } # convert the original 'bid_ts_' column names back - if (length(bid_ts_cols) > 0L) { + if (have_bid_ts_col) { names(tbl) <- names(tbl) |> stringr::str_replace_all( pattern = "^ts_", diff --git a/README.Rmd b/README.Rmd index 0827f6d7..294e7455 100644 --- a/README.Rmd +++ b/README.Rmd @@ -10,7 +10,7 @@ knitr::opts_chunk$set( comment = "#>", fig.path = "man/figures/README-", out.width = "100%" -) +) ``` # entsoeapi ![hexa sticker](man/figures/logo.png){width="120" height="120"} diff --git a/README.md b/README.md index 58b1f21e..8ebefc1e 100644 --- a/README.md +++ b/README.md @@ -1,7 +1,8 @@ -# entsoeapi hexa sticker +# entsoeapi @@ -2056,7 +2057,7 @@ entsoeapi::load_actual_total( #> ── API call ──────────────────────────────────────────────────────────────────── #> → https://web-api.tp.entsoe.eu/api?documentType=A65&processType=A16&outBiddingZone_Domain=10Y1001A1001A83F&periodStart=201912312300&periodEnd=202001012300&securityToken=<...> #> <- HTTP/2 200 -#> <- date: Thu, 05 Mar 2026 15:36:12 GMT +#> <- date: Sun, 08 Mar 2026 23:29:58 GMT #> <- content-type: text/xml #> <- content-disposition: inline; filename="Actual Total Load_201912312300-202001012300.xml" #> <- x-content-type-options: nosniff @@ -2079,7 +2080,7 @@ entsoeapi::load_actual_total( #> $ ts_object_aggregation_def "Area", "Area", "Area", "Area", "Area"… #> $ ts_business_type "A04", "A04", "A04", "A04", "A04", "A0… #> $ ts_business_type_def "Consumption", "Consumption", "Consump… -#> $ created_date_time 2026-03-05 15:36:12, 2026-03-05 15:36… +#> $ created_date_time 2026-03-08 23:29:58, 2026-03-08 23:29… #> $ revision_number 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,… #> $ time_period_time_interval_start 2019-12-31 23:00:00, 2019-12-31 23:00… #> $ time_period_time_interval_end 2020-01-01 23:00:00, 2020-01-01 23:00… @@ -2109,7 +2110,7 @@ entsoeapi::gen_per_prod_type( #> ── API call ──────────────────────────────────────────────────────────────────── #> → https://web-api.tp.entsoe.eu/api?documentType=A75&processType=A16&in_Domain=10Y1001A1001A83F&periodStart=201912312300&periodEnd=202001012300&securityToken=<...> #> <- HTTP/2 200 -#> <- date: Thu, 05 Mar 2026 15:36:14 GMT +#> <- date: Sun, 08 Mar 2026 23:29:59 GMT #> <- content-type: text/xml #> <- content-disposition: inline; filename="Aggregated Generation per Type_201912312300-202001012300.xml" #> <- x-content-type-options: nosniff @@ -2135,7 +2136,7 @@ entsoeapi::gen_per_prod_type( #> $ ts_business_type_def "Production", "Production", "Productio… #> $ ts_mkt_psr_type "B10", "B10", "B10", "B10", "B10", "B1… #> $ ts_mkt_psr_type_def "Hydro-electric pure pumped storage he… -#> $ created_date_time 2026-03-05 15:36:14, 2026-03-05 15:36… +#> $ created_date_time 2026-03-08 23:29:59, 2026-03-08 23:29… #> $ revision_number 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,… #> $ time_period_time_interval_start 2019-12-31 23:00:00, 2019-12-31 23:00… #> $ time_period_time_interval_end 2020-01-01 23:00:00, 2020-01-01 23:00… diff --git a/man/accounting_point_eic.Rd b/man/accounting_point_eic.Rd index 3144a1a3..371db07e 100644 --- a/man/accounting_point_eic.Rd +++ b/man/accounting_point_eic.Rd @@ -23,6 +23,6 @@ can take place and for which commercial business processes are defined. \examples{ eic_accounting_point <- entsoeapi::accounting_point_eic() -str(eic_accounting_point) +dplyr::glimpse(eic_accounting_point) } diff --git a/man/activated_balancing_prices.Rd b/man/activated_balancing_prices.Rd index 3b7f6503..a91fb735 100644 --- a/man/activated_balancing_prices.Rd +++ b/man/activated_balancing_prices.Rd @@ -43,6 +43,6 @@ df <- entsoeapi::activated_balancing_prices( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/aggregated_balancing_energy_bids.Rd b/man/aggregated_balancing_energy_bids.Rd index ca5448b1..a5e5d6a6 100644 --- a/man/aggregated_balancing_energy_bids.Rd +++ b/man/aggregated_balancing_energy_bids.Rd @@ -46,6 +46,6 @@ df <- entsoeapi::aggregated_balancing_energy_bids( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/all_approved_eic.Rd b/man/all_approved_eic.Rd index dd550659..7c3a0f9b 100644 --- a/man/all_approved_eic.Rd +++ b/man/all_approved_eic.Rd @@ -23,6 +23,6 @@ https://www.entsoe.eu/data/energy-identification-codes-eic/#eic-documentation \examples{ eic_all <- entsoeapi::all_approved_eic() -str(eic_all) +dplyr::glimpse(eic_all) } diff --git a/man/allocated_transfer_capacities_3rd_countries.Rd b/man/allocated_transfer_capacities_3rd_countries.Rd index 0473a5d2..c9b29e1d 100644 --- a/man/allocated_transfer_capacities_3rd_countries.Rd +++ b/man/allocated_transfer_capacities_3rd_countries.Rd @@ -68,6 +68,6 @@ df <- entsoeapi::allocated_transfer_capacities_3rd_countries( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/allocation_of_cross_zonal_balancing_cap.Rd b/man/allocation_of_cross_zonal_balancing_cap.Rd index 0e648929..7f998119 100644 --- a/man/allocation_of_cross_zonal_balancing_cap.Rd +++ b/man/allocation_of_cross_zonal_balancing_cap.Rd @@ -42,6 +42,6 @@ df <- entsoeapi::allocation_of_cross_zonal_balancing_cap( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/already_allocated_total_capacity.Rd b/man/already_allocated_total_capacity.Rd index 86fafeb5..0d736862 100644 --- a/man/already_allocated_total_capacity.Rd +++ b/man/already_allocated_total_capacity.Rd @@ -64,6 +64,6 @@ df <- entsoeapi::already_allocated_total_capacity( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/area_eic.Rd b/man/area_eic.Rd index 50fac28a..800eb04a 100644 --- a/man/area_eic.Rd +++ b/man/area_eic.Rd @@ -21,6 +21,6 @@ https://www.entsoe.eu/data/energy-identification-codes-eic/eic-approved-codes \examples{ eic_area <- entsoeapi::area_eic() -str(eic_area) +dplyr::glimpse(eic_area) } diff --git a/man/auction_revenue.Rd b/man/auction_revenue.Rd index ec045fea..5fc6ae21 100644 --- a/man/auction_revenue.Rd +++ b/man/auction_revenue.Rd @@ -56,6 +56,6 @@ df <- entsoeapi::auction_revenue( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/balancing_border_cap_limit.Rd b/man/balancing_border_cap_limit.Rd index 947bec58..5903402b 100644 --- a/man/balancing_border_cap_limit.Rd +++ b/man/balancing_border_cap_limit.Rd @@ -50,6 +50,6 @@ df <- entsoeapi::balancing_border_cap_limit( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/balancing_energy_bids.Rd b/man/balancing_energy_bids.Rd index 04768137..4eb753a0 100644 --- a/man/balancing_energy_bids.Rd +++ b/man/balancing_energy_bids.Rd @@ -39,6 +39,6 @@ df <- entsoeapi::balancing_energy_bids( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/changes_to_bid_availability.Rd b/man/changes_to_bid_availability.Rd index 8ade8079..2f9ec242 100644 --- a/man/changes_to_bid_availability.Rd +++ b/man/changes_to_bid_availability.Rd @@ -49,6 +49,6 @@ df <- entsoeapi::changes_to_bid_availability( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/congestion_income.Rd b/man/congestion_income.Rd index 2f6844e2..8eb1eeaf 100644 --- a/man/congestion_income.Rd +++ b/man/congestion_income.Rd @@ -52,6 +52,6 @@ df <- entsoeapi::congestion_income( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/continuous_offered_transfer_capacity.Rd b/man/continuous_offered_transfer_capacity.Rd index 328a81ad..62bfa421 100644 --- a/man/continuous_offered_transfer_capacity.Rd +++ b/man/continuous_offered_transfer_capacity.Rd @@ -43,6 +43,6 @@ df <- entsoeapi::continuous_offered_transfer_capacity( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/contracted_reserves.Rd b/man/contracted_reserves.Rd index ab83e7ae..f75a14d5 100644 --- a/man/contracted_reserves.Rd +++ b/man/contracted_reserves.Rd @@ -58,6 +58,6 @@ df <- entsoeapi::contracted_reserves( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/costs_of_congestion_management.Rd b/man/costs_of_congestion_management.Rd index e29b8fa5..1fb1fadf 100644 --- a/man/costs_of_congestion_management.Rd +++ b/man/costs_of_congestion_management.Rd @@ -45,6 +45,6 @@ df <- entsoeapi::costs_of_congestion_management( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/countertrading.Rd b/man/countertrading.Rd index 96929a13..48c3e09f 100644 --- a/man/countertrading.Rd +++ b/man/countertrading.Rd @@ -44,6 +44,6 @@ df <- entsoeapi::countertrading( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/cross_border_physical_flows.Rd b/man/cross_border_physical_flows.Rd index 4f3c0f04..c06ba964 100644 --- a/man/cross_border_physical_flows.Rd +++ b/man/cross_border_physical_flows.Rd @@ -42,7 +42,7 @@ df1 <- entsoeapi::cross_border_physical_flows( tidy_output = TRUE ) -str(df1) +dplyr::glimpse(df1) df2 <- entsoeapi::cross_border_physical_flows( eic_in = "10YCZ-CEPS-----N", @@ -52,6 +52,6 @@ df2 <- entsoeapi::cross_border_physical_flows( tidy_output = TRUE ) -str(df2) +dplyr::glimpse(df2) } diff --git a/man/current_balancing_state.Rd b/man/current_balancing_state.Rd index d837031c..6a487175 100644 --- a/man/current_balancing_state.Rd +++ b/man/current_balancing_state.Rd @@ -37,6 +37,6 @@ df <- entsoeapi::current_balancing_state( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/day_ahead_commercial_sched.Rd b/man/day_ahead_commercial_sched.Rd index 4aa9876c..5a005c62 100644 --- a/man/day_ahead_commercial_sched.Rd +++ b/man/day_ahead_commercial_sched.Rd @@ -40,7 +40,7 @@ df1 <- entsoeapi::day_ahead_commercial_sched( period_end = lubridate::ymd(x = "2019-12-01", tz = "CET"), tidy_output = TRUE ) -str(df1) +dplyr::glimpse(df1) df2 <- entsoeapi::day_ahead_commercial_sched( eic_in = "10YDK-1--------W", @@ -49,6 +49,6 @@ df2 <- entsoeapi::day_ahead_commercial_sched( period_end = lubridate::ymd(x = "2019-12-01", tz = "CET"), tidy_output = TRUE ) -str(df2) +dplyr::glimpse(df2) } diff --git a/man/day_ahead_prices.Rd b/man/day_ahead_prices.Rd index 03d7a3e1..af22e616 100644 --- a/man/day_ahead_prices.Rd +++ b/man/day_ahead_prices.Rd @@ -37,7 +37,7 @@ df1 <- entsoeapi::day_ahead_prices( tidy_output = TRUE ) -str(df1) +dplyr::glimpse(df1) df2 <- entsoeapi::day_ahead_prices( eic = "10Y1001A1001A82H", @@ -45,6 +45,6 @@ df2 <- entsoeapi::day_ahead_prices( period_end = lubridate::ymd(x = "2026-02-13", tz = "CET"), tidy_output = TRUE ) -str(df2) +dplyr::glimpse(df2) } diff --git a/man/elastic_demands.Rd b/man/elastic_demands.Rd index d0340ddb..22960a0d 100644 --- a/man/elastic_demands.Rd +++ b/man/elastic_demands.Rd @@ -42,6 +42,6 @@ df <- entsoeapi::elastic_demands( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/exchanged_volumes.Rd b/man/exchanged_volumes.Rd index e2df3289..4be7a651 100644 --- a/man/exchanged_volumes.Rd +++ b/man/exchanged_volumes.Rd @@ -49,7 +49,8 @@ df1 <- entsoeapi::exchanged_volumes( 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", @@ -59,6 +60,6 @@ df2 <- entsoeapi::exchanged_volumes( tidy_output = TRUE ) -str(df2) +dplyr::glimpse(df2) } diff --git a/man/exchanged_volumes_per_border.Rd b/man/exchanged_volumes_per_border.Rd index b8ead33f..9a1bcebc 100644 --- a/man/exchanged_volumes_per_border.Rd +++ b/man/exchanged_volumes_per_border.Rd @@ -48,6 +48,6 @@ df <- entsoeapi::exchanged_volumes_per_border( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/expansion_and_dismantling_project.Rd b/man/expansion_and_dismantling_project.Rd index acd8f138..4cde6577 100644 --- a/man/expansion_and_dismantling_project.Rd +++ b/man/expansion_and_dismantling_project.Rd @@ -58,6 +58,6 @@ df <- entsoeapi::expansion_and_dismantling_project( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/explicit_offered_transfer_capacity.Rd b/man/explicit_offered_transfer_capacity.Rd index 02ecac59..b612caff 100644 --- a/man/explicit_offered_transfer_capacity.Rd +++ b/man/explicit_offered_transfer_capacity.Rd @@ -56,6 +56,6 @@ df <- entsoeapi::explicit_offered_transfer_capacity( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/fcr_total_capacity.Rd b/man/fcr_total_capacity.Rd index dd6b2149..3a529c11 100644 --- a/man/fcr_total_capacity.Rd +++ b/man/fcr_total_capacity.Rd @@ -37,6 +37,6 @@ df <- entsoeapi::fcr_total_capacity( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/financial_expenses_and_income_for_balancing.Rd b/man/financial_expenses_and_income_for_balancing.Rd index edcc3961..5dcdf87f 100644 --- a/man/financial_expenses_and_income_for_balancing.Rd +++ b/man/financial_expenses_and_income_for_balancing.Rd @@ -37,6 +37,6 @@ df <- entsoeapi::financial_expenses_and_income_for_balancing( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/flow_based_allocations.Rd b/man/flow_based_allocations.Rd index bfede1ba..194d9ede 100644 --- a/man/flow_based_allocations.Rd +++ b/man/flow_based_allocations.Rd @@ -51,7 +51,7 @@ df1 <- entsoeapi::flow_based_allocations( tidy_output = TRUE ) -str(df1) +dplyr::glimpse(df1) df2 <- entsoeapi::flow_based_allocations( eic = "10YDOM-REGION-1V", @@ -62,6 +62,6 @@ df2 <- entsoeapi::flow_based_allocations( tidy_output = TRUE ) -str(df2) +dplyr::glimpse(df2) } diff --git a/man/forecasted_transfer_capacities.Rd b/man/forecasted_transfer_capacities.Rd index 515978fd..58e394f0 100644 --- a/man/forecasted_transfer_capacities.Rd +++ b/man/forecasted_transfer_capacities.Rd @@ -40,7 +40,7 @@ df1 <- entsoeapi::forecasted_transfer_capacities( tidy_output = TRUE ) -str(df1) +dplyr::glimpse(df1) df2 <- entsoeapi::forecasted_transfer_capacities( eic_in = "10YDK-1--------W", @@ -50,6 +50,6 @@ df2 <- entsoeapi::forecasted_transfer_capacities( tidy_output = TRUE ) -str(df2) +dplyr::glimpse(df2) } diff --git a/man/gen_day_ahead_forecast.Rd b/man/gen_day_ahead_forecast.Rd index 7b2b2872..4675e0c4 100644 --- a/man/gen_day_ahead_forecast.Rd +++ b/man/gen_day_ahead_forecast.Rd @@ -38,6 +38,7 @@ df <- entsoeapi::gen_day_ahead_forecast( period_end = lubridate::ymd(x = "2020-03-01", tz = "CET"), tidy_output = TRUE ) -str(df) + +dplyr::glimpse(df) } diff --git a/man/gen_installed_capacity_per_pt.Rd b/man/gen_installed_capacity_per_pt.Rd index 2c07a7e1..7781c870 100644 --- a/man/gen_installed_capacity_per_pt.Rd +++ b/man/gen_installed_capacity_per_pt.Rd @@ -33,6 +33,7 @@ df <- entsoeapi::gen_installed_capacity_per_pt( psr_type = "B05", year = 2020 ) -str(df) + +dplyr::glimpse(df) } diff --git a/man/gen_installed_capacity_per_pu.Rd b/man/gen_installed_capacity_per_pu.Rd index 2a0d6504..959f9868 100644 --- a/man/gen_installed_capacity_per_pu.Rd +++ b/man/gen_installed_capacity_per_pu.Rd @@ -33,6 +33,7 @@ df <- entsoeapi::gen_installed_capacity_per_pu( year = 2020, psr_type = "B05" ) -str(df) + +dplyr::glimpse(df) } diff --git a/man/gen_per_gen_unit.Rd b/man/gen_per_gen_unit.Rd index 36cb0ab7..bada727d 100644 --- a/man/gen_per_gen_unit.Rd +++ b/man/gen_per_gen_unit.Rd @@ -42,6 +42,7 @@ df <- entsoeapi::gen_per_gen_unit( gen_type = c("B04", "B05"), tidy_output = TRUE ) -str(df) + +dplyr::glimpse(df) } diff --git a/man/gen_per_prod_type.Rd b/man/gen_per_prod_type.Rd index e19c9310..f0c126bc 100644 --- a/man/gen_per_prod_type.Rd +++ b/man/gen_per_prod_type.Rd @@ -43,6 +43,7 @@ df <- entsoeapi::gen_per_prod_type( gen_type = NULL, tidy_output = TRUE ) -str(df) + +dplyr::glimpse(df) } diff --git a/man/gen_storage_mean_filling_rate.Rd b/man/gen_storage_mean_filling_rate.Rd index 10170ed3..33ca0bcd 100644 --- a/man/gen_storage_mean_filling_rate.Rd +++ b/man/gen_storage_mean_filling_rate.Rd @@ -40,6 +40,7 @@ df <- entsoeapi::gen_storage_mean_filling_rate( period_end = lubridate::ymd(x = "2021-02-15", tz = "CET"), tidy_output = TRUE ) -str(df) + +dplyr::glimpse(df) } diff --git a/man/gen_wind_solar_forecasts.Rd b/man/gen_wind_solar_forecasts.Rd index e1c56558..02caeff5 100644 --- a/man/gen_wind_solar_forecasts.Rd +++ b/man/gen_wind_solar_forecasts.Rd @@ -41,8 +41,9 @@ df_list <- entsoeapi::gen_wind_solar_forecasts( 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`) } diff --git a/man/hvdc_link_constrains.Rd b/man/hvdc_link_constrains.Rd index 2a7179d0..f99bb308 100644 --- a/man/hvdc_link_constrains.Rd +++ b/man/hvdc_link_constrains.Rd @@ -51,6 +51,6 @@ df <- entsoeapi::hvdc_link_constrains( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/imbalance_prices.Rd b/man/imbalance_prices.Rd index 066612c3..bd1558e0 100644 --- a/man/imbalance_prices.Rd +++ b/man/imbalance_prices.Rd @@ -37,6 +37,6 @@ df <- entsoeapi::imbalance_prices( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/imbalance_volumes.Rd b/man/imbalance_volumes.Rd index 9d800a22..6f3a6ec4 100644 --- a/man/imbalance_volumes.Rd +++ b/man/imbalance_volumes.Rd @@ -37,6 +37,6 @@ df <- entsoeapi::imbalance_volumes( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/implicit_offered_transfer_capacity.Rd b/man/implicit_offered_transfer_capacity.Rd index bf5d0a2a..1d93c421 100644 --- a/man/implicit_offered_transfer_capacity.Rd +++ b/man/implicit_offered_transfer_capacity.Rd @@ -50,6 +50,6 @@ df <- entsoeapi::implicit_offered_transfer_capacity( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/intraday_cross_border_transfer_limits.Rd b/man/intraday_cross_border_transfer_limits.Rd index e0f2d0f5..b03694db 100644 --- a/man/intraday_cross_border_transfer_limits.Rd +++ b/man/intraday_cross_border_transfer_limits.Rd @@ -45,6 +45,6 @@ df <- entsoeapi::intraday_cross_border_transfer_limits( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/load_actual_total.Rd b/man/load_actual_total.Rd index b15ff112..184e8e1c 100644 --- a/man/load_actual_total.Rd +++ b/man/load_actual_total.Rd @@ -45,6 +45,6 @@ df <- entsoeapi::load_actual_total( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/load_day_ahead_total_forecast.Rd b/man/load_day_ahead_total_forecast.Rd index c0fa4efe..36979e80 100644 --- a/man/load_day_ahead_total_forecast.Rd +++ b/man/load_day_ahead_total_forecast.Rd @@ -47,6 +47,6 @@ df <- entsoeapi::load_day_ahead_total_forecast( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/load_month_ahead_total_forecast.Rd b/man/load_month_ahead_total_forecast.Rd index 36198478..a3dea139 100644 --- a/man/load_month_ahead_total_forecast.Rd +++ b/man/load_month_ahead_total_forecast.Rd @@ -45,6 +45,6 @@ df <- entsoeapi::load_month_ahead_total_forecast( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/load_week_ahead_total_forecast.Rd b/man/load_week_ahead_total_forecast.Rd index ef3e356d..2bfb70f0 100644 --- a/man/load_week_ahead_total_forecast.Rd +++ b/man/load_week_ahead_total_forecast.Rd @@ -45,6 +45,6 @@ df <- entsoeapi::load_week_ahead_total_forecast( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/load_year_ahead_forecast_margin.Rd b/man/load_year_ahead_forecast_margin.Rd index cb97137f..a1cf85a5 100644 --- a/man/load_year_ahead_forecast_margin.Rd +++ b/man/load_year_ahead_forecast_margin.Rd @@ -43,6 +43,6 @@ df <- entsoeapi::load_year_ahead_forecast_margin( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/load_year_ahead_total_forecast.Rd b/man/load_year_ahead_total_forecast.Rd index cf65185d..c1cd6b11 100644 --- a/man/load_year_ahead_total_forecast.Rd +++ b/man/load_year_ahead_total_forecast.Rd @@ -45,6 +45,6 @@ df <- entsoeapi::load_year_ahead_total_forecast( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/location_eic.Rd b/man/location_eic.Rd index 89f806fc..a3016ab3 100644 --- a/man/location_eic.Rd +++ b/man/location_eic.Rd @@ -22,6 +22,6 @@ It covers an endpoint, or an IT-system. \examples{ eic_location <- entsoeapi::location_eic() -str(eic_location) +dplyr::glimpse(eic_location) } diff --git a/man/net_positions.Rd b/man/net_positions.Rd index 6f218461..951dfeb7 100644 --- a/man/net_positions.Rd +++ b/man/net_positions.Rd @@ -44,6 +44,6 @@ df <- entsoeapi::net_positions( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/netted_volumes.Rd b/man/netted_volumes.Rd index fde624e4..374b4f1e 100644 --- a/man/netted_volumes.Rd +++ b/man/netted_volumes.Rd @@ -40,6 +40,6 @@ df <- entsoeapi::netted_volumes( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/outages_both.Rd b/man/outages_both.Rd index ebfecab2..e0d64443 100644 --- a/man/outages_both.Rd +++ b/man/outages_both.Rd @@ -60,6 +60,6 @@ df <- entsoeapi::outages_both( ) ) -str(df) +dplyr::glimpse(df) } diff --git a/man/outages_cons_units.Rd b/man/outages_cons_units.Rd index 99c12615..41f8de4f 100644 --- a/man/outages_cons_units.Rd +++ b/man/outages_cons_units.Rd @@ -65,6 +65,6 @@ df <- entsoeapi::outages_cons_units( period_end = lubridate::ymd(x = "2024-04-11", tz = "CET") ) -str(df) +dplyr::glimpse(df) } diff --git a/man/outages_fallbacks.Rd b/man/outages_fallbacks.Rd index 4e372fc7..7789e061 100644 --- a/man/outages_fallbacks.Rd +++ b/man/outages_fallbacks.Rd @@ -58,6 +58,6 @@ df <- entsoeapi::outages_fallbacks( process_type = "A51", event_nature = "C47") -str(df) +dplyr::glimpse(df) } diff --git a/man/outages_gen_units.Rd b/man/outages_gen_units.Rd index 43358a29..97aed8d1 100644 --- a/man/outages_gen_units.Rd +++ b/man/outages_gen_units.Rd @@ -63,6 +63,6 @@ df <- entsoeapi::outages_gen_units( ) ) -str(df) +dplyr::glimpse(df) } diff --git a/man/outages_offshore_grid.Rd b/man/outages_offshore_grid.Rd index 2a5d4cf3..0abc2c8a 100644 --- a/man/outages_offshore_grid.Rd +++ b/man/outages_offshore_grid.Rd @@ -53,6 +53,6 @@ df <- entsoeapi::outages_offshore_grid( period_end = lubridate::ymd(x = Sys.Date(), tz = "CET") ) -str(df) +dplyr::glimpse(df) } diff --git a/man/outages_prod_units.Rd b/man/outages_prod_units.Rd index 24c2fb66..847b7558 100644 --- a/man/outages_prod_units.Rd +++ b/man/outages_prod_units.Rd @@ -64,6 +64,6 @@ df <- entsoeapi::outages_prod_units( ) ) -str(df) +dplyr::glimpse(df) } diff --git a/man/outages_transmission_grid.Rd b/man/outages_transmission_grid.Rd index 9f317225..2cef72cc 100644 --- a/man/outages_transmission_grid.Rd +++ b/man/outages_transmission_grid.Rd @@ -74,6 +74,6 @@ df <- entsoeapi::outages_transmission_grid( period_end_update = lubridate::ymd(x = Sys.Date(), tz = "CET") ) -str(df) +dplyr::glimpse(df) } diff --git a/man/party_eic.Rd b/man/party_eic.Rd index 4245b0ae..277de72c 100644 --- a/man/party_eic.Rd +++ b/man/party_eic.Rd @@ -22,6 +22,6 @@ It covers market participants. \examples{ eic_party <- entsoeapi::party_eic() -str(eic_party) +dplyr::glimpse(eic_party) } diff --git a/man/procured_balancing_capacity.Rd b/man/procured_balancing_capacity.Rd index 7c23b566..d3f59eb8 100644 --- a/man/procured_balancing_capacity.Rd +++ b/man/procured_balancing_capacity.Rd @@ -45,6 +45,6 @@ df <- entsoeapi::procured_balancing_capacity( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/redispatching_cross_border.Rd b/man/redispatching_cross_border.Rd index 8e1a98f6..96240f7f 100644 --- a/man/redispatching_cross_border.Rd +++ b/man/redispatching_cross_border.Rd @@ -42,6 +42,6 @@ df <- entsoeapi::redispatching_cross_border( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/redispatching_internal.Rd b/man/redispatching_internal.Rd index cd98e432..6ce0a03a 100644 --- a/man/redispatching_internal.Rd +++ b/man/redispatching_internal.Rd @@ -37,6 +37,6 @@ df <- entsoeapi::redispatching_internal( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/resource_object_eic.Rd b/man/resource_object_eic.Rd index 047644b2..557f6a38 100644 --- a/man/resource_object_eic.Rd +++ b/man/resource_object_eic.Rd @@ -23,6 +23,6 @@ and that is reported in a schedule. \examples{ eic_resource_object <- entsoeapi::resource_object_eic() -str(eic_resource_object) +dplyr::glimpse(eic_resource_object) } diff --git a/man/rr_actual_capacity.Rd b/man/rr_actual_capacity.Rd index 4a136c32..43e9fa90 100644 --- a/man/rr_actual_capacity.Rd +++ b/man/rr_actual_capacity.Rd @@ -35,6 +35,6 @@ df <- entsoeapi::rr_actual_capacity( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/rr_and_frr_actual_capacity.Rd b/man/rr_and_frr_actual_capacity.Rd index d71e9923..2e059e3b 100644 --- a/man/rr_and_frr_actual_capacity.Rd +++ b/man/rr_and_frr_actual_capacity.Rd @@ -48,6 +48,6 @@ df <- entsoeapi::rr_and_frr_actual_capacity( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/shares_of_fcr_capacity.Rd b/man/shares_of_fcr_capacity.Rd index 3f20968e..5967f69c 100644 --- a/man/shares_of_fcr_capacity.Rd +++ b/man/shares_of_fcr_capacity.Rd @@ -43,6 +43,6 @@ df <- entsoeapi::shares_of_fcr_capacity( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/man/sharing_of_frr_capacity.Rd b/man/sharing_of_frr_capacity.Rd index db2ee689..550d75f9 100644 --- a/man/sharing_of_frr_capacity.Rd +++ b/man/sharing_of_frr_capacity.Rd @@ -48,7 +48,7 @@ df <- entsoeapi::sharing_of_frr_capacity( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } } diff --git a/man/substation_eic.Rd b/man/substation_eic.Rd index 43da7345..e1ef7450 100644 --- a/man/substation_eic.Rd +++ b/man/substation_eic.Rd @@ -28,6 +28,6 @@ armoured substation and underground substation. \examples{ eic_substation <- entsoeapi::substation_eic() -str(eic_substation) +dplyr::glimpse(eic_substation) } diff --git a/man/tie_line_eic.Rd b/man/tie_line_eic.Rd index 7ef18aab..8dc8b309 100644 --- a/man/tie_line_eic.Rd +++ b/man/tie_line_eic.Rd @@ -23,6 +23,6 @@ excluding HVDC interconnectors. \examples{ eic_tie_line <- entsoeapi::tie_line_eic() -str(eic_tie_line) +dplyr::glimpse(eic_tie_line) } diff --git a/man/total_commercial_sched.Rd b/man/total_commercial_sched.Rd index 1f0ac4aa..efa090c4 100644 --- a/man/total_commercial_sched.Rd +++ b/man/total_commercial_sched.Rd @@ -41,7 +41,8 @@ df1 <- entsoeapi::total_commercial_sched( period_end = lubridate::ymd(x = "2019-12-01", tz = "CET"), tidy_output = TRUE ) -str(df1) + +dplyr::glimpse(df1) df2 <- entsoeapi::total_commercial_sched( eic_in = "10YDK-1--------W", @@ -50,6 +51,7 @@ df2 <- entsoeapi::total_commercial_sched( period_end = lubridate::ymd(x = "2019-12-01", tz = "CET"), tidy_output = TRUE ) -str(df2) + +dplyr::glimpse(df2) } diff --git a/man/total_nominated_capacity.Rd b/man/total_nominated_capacity.Rd index 7dce8402..ba4265bc 100644 --- a/man/total_nominated_capacity.Rd +++ b/man/total_nominated_capacity.Rd @@ -43,6 +43,6 @@ df <- entsoeapi::total_nominated_capacity( tidy_output = TRUE ) -str(df) +dplyr::glimpse(df) } diff --git a/vignettes/da-price-spread-vignette.Rmd b/vignettes/da-price-spread-vignette.Rmd index 679549fe..46728cf6 100644 --- a/vignettes/da-price-spread-vignette.Rmd +++ b/vignettes/da-price-spread-vignette.Rmd @@ -26,7 +26,7 @@ library(cli) library(ggplot2) ``` -#### Look for the Polish market EIC and set the start and the end of scope dates +### Look for the Polish market EIC and set the start and the end of scope dates ```{r preset constants} pl_eic <- all_approved_eic() |> @@ -42,7 +42,7 @@ cli_inform("from: {from_ts}") cli_inform("till: {till_ts}") ``` -#### Query the Polish DA prices within the pre-set period +### Query the Polish DA prices within the pre-set period ```{r query da prices} da_prices <- entsoeapi::day_ahead_prices( @@ -54,7 +54,7 @@ da_prices <- entsoeapi::day_ahead_prices( glimpse(da_prices) ``` -#### Calculate the daily minimum and maximum prices and the spread +### Calculate the daily minimum and maximum prices and the spread ```{r calculate the daily spreads} da_spreads <- da_prices |> @@ -75,7 +75,7 @@ da_spreads <- da_prices |> unique() ``` -#### Plot the daily minimum and maximum prices and the spread +### Plot the daily minimum and maximum prices and the spread ```{r plot the daily spreads} ggplot(data = da_spreads) + @@ -103,7 +103,7 @@ ggplot(data = da_spreads) + ) + theme_minimal() + labs( - title = "Polish Daily Spread of Day-Ahead prices", + title = "Polish Daily Spread of Day-Ahead Prices", subtitle = paste("PT15M,", from_ts, till_ts), x = "delivery date", y = "day-ahead price spread"