Commit: 47bbc49c5bf25f911f39849cb550f7e0283edad8 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Révision: 47bbc49c5bf25f911f39849cb550f7e0283edad8 (tree)
• l'heure: 2024-12-16 21:15:12
• Auteur: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Message de Log

I simply modified a few paths.

Change Summary

• modified: R-codes/process_time_portfolios.R

Modification

diff -r d5b882626748 -r 47bbc49c5bf2 R-codes/process_time_portfolios.R
--- a/R-codes/process_time_portfolios.R	Sun Dec 15 23:41:17 2024 +0100
+++ b/R-codes/process_time_portfolios.R	Mon Dec 16 13:15:12 2024 +0100
@@ -10,9 +10,9 @@
 threshold <- 1. ##min_value of usdt for the top assets to be considered
 
 
-system("detox ./history_usdt/*csv")
+system("detox ../input/*csv")
 
-df_ini <- read_all_csv("./history_usdt/", show_col_types = FALSE)
+df_ini <- read_all_csv("../input/flat_files", show_col_types = FALSE)
 
 df <- df_ini |>
     filter(!is.na(value_usdt))
@@ -20,7 +20,7 @@
 errors <- df_ini |>
     filter(is.na(value_usdt))
 
-save_excel(errors, "./history_usdt/possible_errors.xlsx")
+save_excel(errors, "../output/possible_errors.xlsx")
 
 
 df_evol1 <- df |>
@@ -52,7 +52,7 @@
     ylab("Total Value (USDT)")+
     xlab("Time")
 
-fname <- paste("./history_usdt/history_portfolio_value.pdf")
+fname <- paste("../output/history_portfolio_value.pdf")
 
 ggsave(fname, gpl, width=8,height=8)
 
@@ -63,7 +63,7 @@
     filter(timestamp==max(timestamp)) |>
     filter(amount>0)
 
-save_excel(df_recent, "./history_usdt/recent_portfolio_detailed.xlsx")
+save_excel(df_recent, "../output/recent_portfolio_detailed.xlsx")
 
 recent_assets <- df_recent  |>
     summarise(asset_value_usdt=sum(value_usdt),
@@ -72,7 +72,7 @@
               timestamp=timestamp[1],.by=asset) |>
     arrange(desc(asset_value_usdt))
 
-save_excel(recent_assets, "./history_usdt/recent_portfolio_top_assets.xlsx")
+save_excel(recent_assets, "../output/recent_portfolio_top_assets.xlsx")
 
 recent_assets_long <- recent_assets |>
     arrange(asset_value_usdt) |> 
@@ -96,7 +96,7 @@
     ylab(NULL)
 
 
-ggsave("./history_usdt/portfolio_features.pdf", gpl, width=12,height=8) 
+ggsave("../output/portfolio_features.pdf", gpl, width=12,height=8) 
 
 
 total_portfolio_value_usdt <- df_recent$value_usdt|>
@@ -112,7 +112,7 @@
     select(asset) |>
     distinct()
 
-save_excel(final_asset_list, "./history_usdt/asset_list.xlsx")
+save_excel(final_asset_list, "../output/asset_list.xlsx")
 
 
 top_ini <- df |>
@@ -145,7 +145,7 @@
     ylab(NULL)
 
 
-ggsave("./history_usdt/portfolio_snapshots.pdf", gpl, width=12,height=8) 
+ggsave("../output/portfolio_snapshots.pdf", gpl, width=12,height=8) 
 
 
 my_time_stamp <- top_recent |>
@@ -163,7 +163,7 @@
 
 title2 <- paste("Portfolio at ", my_time_stamp, sep="" )
 
-fname2 <- paste("portfolio_now_",my_time_stamp, ".pdf", sep="" )
+fname2 <- paste("../output/portfolio_now_",my_time_stamp, ".pdf", sep="" )
 
 
 
@@ -197,10 +197,10 @@
     ylab(NULL)
 
 
-ggsave("./history_usdt/portfolio_now.pdf", gpl, width=6,height=8) 
+ggsave("../output/portfolio_now.pdf", gpl, width=6,height=8) 
 
 
-fsave <- paste("./history_usdt/", fname2, sep="")
+fsave <- paste("../output/", fname2, sep="")
 
 ggsave(fsave, gpl, width=6,height=8) 
 
@@ -209,6 +209,6 @@
 print(total_portfolio_value_usdt)
 
 
-system("detox *")
+system("detox ../output/*")
 
 print("So far so good")