data-raw/create_df_figure_count.R

In RichardMeyer-Eppler/Datenreport2022: Data Wrangling Functions for the Ninth Reporting Cycle for Teaching

library(Datenreport2022)
library(extrafont) # Required to correctly calculate graphics::strwidth()

# Load R Environment for file paths
readRenviron(
  file.path(path.expand("~"), ".Renviron")
)

# File paths
folder <- Sys.getenv("DIR_INPUT_DWH")
file <- Sys.getenv("FILE_DATENREPORT")


# Load raw csv data
df <- Datenreport2022::load_raw_csv(
  paste0(
    folder,
    file
  )
)

# Add figure height columns (long running time!)
df_height <- Datenreport2022::add_variable_and_static_height(
  df
)

# Update figure count column (long running time!)
df_figures <- Datenreport2022::update_figure_nr(
  df_height
)

# Ggf. in update_figure_nr ergänzen!
df_figures <- df_figures %>%
  dplyr::mutate(
    figure_height = round(
      figure_height,
      digits = 2L
    )
  ) %>%
  dplyr::arrange(
    report_nr,
    figure_nr,
    aggregation_sort_1,
    abbildung_map_sort,
    wert_sort
  )

# Save data frame as Rda file
save(
  df_figures,
  file = paste0(
    Sys.getenv("DIR_INPUT_DWH"),
    Sys.getenv("FILE_FIGURES")
  )
)

# Copy from DWH folder to Git Data folder
fs::file_copy(
  path = paste0(
    Sys.getenv("DIR_INPUT_DWH"),
    Sys.getenv("FILE_FIGURES")
  ),
  new_path = paste0(
    Sys.getenv("DIR_GIT_DATA"),
    Sys.getenv("FILE_FIGURES")
  ),
  overwrite = TRUE
)