Commit: 5ee2b132b8bef339bc188b969a8d955c5ba3ff56 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: 5ee2b132b8bef339bc188b969a8d955c5ba3ff56 (tree)
• Tiempo: 2024-01-07 06:13:34
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I now give the currency (EUR or USD) as an input parameter.

Cambiar Resumen

• modified: R-codes/technical_analysis.R

Diferencia incremental

diff -r 7a619408720f -r 5ee2b132b8be R-codes/technical_analysis.R
--- a/R-codes/technical_analysis.R	Sat Jan 06 22:10:04 2024 +0100
+++ b/R-codes/technical_analysis.R	Sat Jan 06 22:13:34 2024 +0100
@@ -18,7 +18,8 @@
 
 initial_day <- gsub('-', '', today()-days_back)
 
-
+currency <- ## "EUR"
+"USD"
 
 mylist_slug <- c("cardano" , "iotex", "cosmos", "polygon",
                  "algorand", "kava", "solana", "cartesi",
@@ -38,7 +39,7 @@
     filter(slug %in% mylist_slug)
 
 coin_hist <- crypto_history(coins,
-                            convert = "EUR",
+                            convert = currency,
                             ## limit=3,
                             start_date=initial_day,
                             end_date=final_day, finalWait=FALSE) |>
@@ -165,7 +166,7 @@
     ggtitle(title_name)+
     facet_wrap( ~symbol, nrow = 6, scales = "free_y")+
     my_ggplot_theme2("right")+
-    ylab("Coin Price in EUR")+
+    ylab(paste("Coin Price in ", currency, sep=""))+
     xlab(NULL)
 
 fname <- paste("./history_usdt/coin_prices.pdf")
@@ -180,7 +181,7 @@
     ggtitle(title_name)+
     facet_wrap( ~symbol, nrow = 6, scales = "free_y")+
     my_ggplot_theme2("right")+
-    ylab("Coin Volume in EUR")+
+    ylab(paste("Coin Volume in ", currency, sep=""))+
     xlab(NULL)
 
 fname <- paste("./history_usdt/coin_volumes.pdf")