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

Commit MetaInfo

• Revision: f3819b6876c578bee60422b85311cb7388b54f02 (tree)
• Time: 2023-12-17 23:13:16
• Author: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

A project to track addresses and portfolios on several blockchains.

Change Summary

• add: R-codes/track_whales.R

Incremental Difference

diff -r 5b0e53a7fb62 -r f3819b6876c5 R-codes/track_whales.R
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/R-codes/track_whales.R	Sun Dec 17 15:13:16 2023 +0100
@@ -0,0 +1,40 @@
+rm(list=ls())
+
+library(tidyverse)
+library(janitor)
+library(cryptotrackr)
+
+
+source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R")
+
+## etherscan
+
+## address <- "0xde0b295669a9fd93d5f28d9ec85e40f4cb697bae"
+
+## api_key <- "8GIHGAKW8FN23D9JEZY9273W5DFHA8DEJS"
+
+## account_balance <- etherscan_account_balance(address, api_key)
+
+
+## covalent
+
+
+
+
+api_key <- "cqt_rQMGJ9wyMJhhhPYFQjKCFGRFBjM6"
+## balances <- covalent_balances(api_key, "1", "trevorfrench.eth", csv = FALSE)
+## balances$data$items[,c(2,10)]
+
+
+
+
+balances2 <- covalent_balances(api_key, "56",
+     "0x08bb674adb855c7a08dd462c814be4829399b845", csv = FALSE) 
+
+my_bal <- balances2$data$items[,c(2,10)] |>
+    as_tibble()
+
+print("So far so good")
+
+
+