Commit: 7fab32ec9541a76d0b2a9eee4ae82c49cdbac8a8 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: 7fab32ec9541a76d0b2a9eee4ae82c49cdbac8a8 (tree)
• Tiempo: 2024-09-18 02:52:57
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I improved the script and the handling of the output files.

Cambiar Resumen

• modified: R-codes/process_slovenia.R

Diferencia incremental

diff -r d37a35517582 -r 7fab32ec9541 R-codes/process_slovenia.R
--- a/R-codes/process_slovenia.R	Tue Sep 17 19:50:04 2024 +0200
+++ b/R-codes/process_slovenia.R	Tue Sep 17 19:52:57 2024 +0200
@@ -11,13 +11,13 @@
 
 
 
-df1_ini <- read_csv("SI1.csv",col_types=cols(`Dejavnost SKD 2. nivo ID`="c") ) |>
+df1_ini <- read_csv("../input/SI1.csv",col_types=cols(`Dejavnost SKD 2. nivo ID`="c") ) |>
     clean_names()
 
-df2_ini <- read_csv("SI2.csv") |>
+df2_ini <- read_csv("../input/SI2.csv") |>
     clean_names()
 
-df3_ini <- read_csv("SI3.csv") |>
+df3_ini <- read_csv("../input/SI3.csv") |>
     clean_names() |>
     mutate(datum_odobritve=excel_numeric_to_date(datum_odobritve))
 
@@ -205,9 +205,13 @@
 ##     filter(member_state_2_letter_code=="SI")
 
 
-nace <- readRDS("../nace_codes/df_nace.RDS") |>
+## nace <- readRDS("../nace_codes/df_nace.RDS") |>
+##     select(-code)
+
+nace <- readRDS("../input/df_nace.RDS") |>
     select(-code)
 
+
 df_nace <- tibble(macro=seq_fixed_width(1:99,2),
                   x=1:99) |>
     mutate(macro2=case_when(
@@ -301,11 +305,14 @@
     ## mutate(case_reference=str_trim(case_reference, "both"))
 
     
-    
-save_excel(df_tot, "SI_aid.xlsx")
+remove_file("../output/SI_aid.xlsx")   
+save_excel(df_tot, "../output/SI_aid.xlsx")
+
+remove_file("../output/slovenian_tam.parquet")
+write_parquet(df_tot, "../output/slovenian_tam.parquet")
 
 
-write_parquet(df_tot, "slovenian_tam.parquet")
-
+remove_file("../../tam_arrow/input/parquet-files/slovenia/slovenian_tam.parquet")
+write_parquet(df_tot, "../../tam_arrow/input/parquet-files/slovenia/slovenian_tam.parquet")
 
 print("So far so good")