Commit: f250f238e4adec02ada03b9624a70d8e00021fd6 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: f250f238e4adec02ada03b9624a70d8e00021fd6 (tree)
• Tiempo: 2024-03-03 19:06:41
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I now save also time-stamped versions of the portfolio compositions as pdf files.

Cambiar Resumen

• modified: R-codes/process_time_portfolios.R

Diferencia incremental

diff -r cb50cf6677fc -r f250f238e4ad R-codes/process_time_portfolios.R
--- a/R-codes/process_time_portfolios.R	Sat Mar 02 10:20:41 2024 +0100
+++ b/R-codes/process_time_portfolios.R	Sun Mar 03 11:06:41 2024 +0100
@@ -151,7 +151,8 @@
 my_time_stamp <- top_recent |>
     select(timestamp) |>
     slice(1) |>
-    pull(timestamp)
+    pull(timestamp) |>
+    select_left_pattern(".")
 
 
 top_recent2 <- top_recent |>
@@ -160,8 +161,11 @@
     mutate(value2=format_col(asset_value_usdt,1))
 
 
-title2 <- paste("Portfolio at ", my_time_stamp, sep="" ) |>
-    select_left_pattern(".")
+title2 <- paste("Portfolio at ", my_time_stamp, sep="" )
+
+fname2 <- paste("portfolio_now_",my_time_stamp, ".pdf", sep="" )
+
+
 
 gpl <- ggplot(top_recent2, aes(y=asset, x=asset_value_usdt## ,
                                 ## fill=relation_to_median
@@ -196,10 +200,15 @@
 ggsave("./history_usdt/portfolio_now.pdf", gpl, width=6,height=8) 
 
 
+fsave <- paste("./history_usdt/", fname2, sep="")
+
+ggsave(fsave, gpl, width=6,height=8) 
+
+
 print("The final value of the portfolio in USDT is, ")
 print(total_portfolio_value_usdt)
 
 
-
+system("detox *")
 
 print("So far so good")