| Revisión | a1bf8796b4e223389f58561c612186c6d361bb40 (tree) |
|---|---|
| Tiempo | 2024-01-04 17:36:07 |
| Autor | Lorenzo Isella <lorenzo.isella@gmai...> |
| Commiter | Lorenzo Isella |
I improved the code in case it is impossible to retrieve some prices.
R-codes/process_time_portfolios.R (diff)| @@ -10,8 +10,16 @@ | ||
| 10 | 10 | threshold <- 1. ##min_value of usdt for the top assets to be considered |
| 11 | 11 | |
| 12 | 12 | |
| 13 | -df <- read_all_csv("./history_usdt/") ## |> | |
| 14 | - ## mutate(timestamp=as_datetime(timestamp)) | |
| 13 | +df_ini <- read_all_csv("./history_usdt/") | |
| 14 | + | |
| 15 | +df <- df_ini |> | |
| 16 | + filter(!is.na(value_usdt)) | |
| 17 | + | |
| 18 | +errors <- df_ini |> | |
| 19 | + filter(is.na(value_usdt)) | |
| 20 | + | |
| 21 | +save_excel(errors, "./history_usdt/possible_errors.xlsx") | |
| 22 | + | |
| 15 | 23 | |
| 16 | 24 | df_evol1 <- df |> |
| 17 | 25 | group_by(asset) |> |
Fork