From 428bbc11f4a738baa0f51c2fcc11db1f545394c2 Mon Sep 17 00:00:00 2001
From: theericstone <eric@flipsidecrypto.com>
Date: Fri, 2 Sep 2022 14:54:19 -0400
Subject: [PATCH] using alltime eoa activity again sorry

---
 eoa/global.R | 13 ++++++++-----
 eoa/server.R |  4 ++--
 eoa/ui.R     |  2 +-
 3 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/eoa/global.R b/eoa/global.R
index f35f0b7..068d612 100644
--- a/eoa/global.R
+++ b/eoa/global.R
@@ -17,14 +17,17 @@ api_key <- readLines("api_key.txt")
 
 eoa_daily_history <- fromJSON(
   paste0("https://node-api.flipsidecrypto.com/api/v2/queries/",
-         "e90160dc-765a-45f7-8a28-d2258c4127e9/data/latest")
-  #"49534ded-30f3-450a-8d31-558cb159966e/data/latest"
-         
+         "49534ded-30f3-450a-8d31-558cb159966e/data/latest")
+         #"e90160dc-765a-45f7-8a28-d2258c4127e9/data/latest") -- last 391 day version
 )
 
 eoa_daily_history$eoa_bucket <- cut(eoa_daily_history$UNIQUE_DAYS,
-                                    breaks = c(0, 1,3,10,50,100,300, Inf),
-                                    labels = c("1","</= 3","4-10","11-50","51-100","101-300","301 +"))
+                                    breaks = c(0,1,3,10,50,100,300,1000,Inf),
+                                    labels = c("1","</= 3","4-10","11-50","51-100","101-300","301-1000","1001 +"))
+
+# for last 391 day version
+#breaks = c(0, 1,3,10,50,100,300, Inf),
+#labels = c("1","</= 3","4-10","11-50","51-100","101-300","301 +")
 
 eoa_daily_history <- eoa_daily_history %>% 
   subset(UNIQUE_DAYS > 1) %>%
diff --git a/eoa/server.R b/eoa/server.R
index f56e3c9..f68e8c4 100644
--- a/eoa/server.R
+++ b/eoa/server.R
@@ -62,8 +62,8 @@ shinyServer(function(input, output, session) {
     days = as.numeric(eoa_stats()$days) 
     
     x = cut(days,
-            breaks = c(0, 1,3,10,50,100,300, Inf),
-            labels = c("1","</= 3","4-10","11-50","51-100","101-300","301 +"))
+            breaks = c(0,1,3,10,50,100,300,1000,Inf),
+            labels = c("1","</= 3","4-10","11-50","51-100","101-300","301-1000","1001 +"))
     
     if(is.null(results$table)){
       NULL
diff --git a/eoa/ui.R b/eoa/ui.R
index 55eaa8b..17c098f 100644
--- a/eoa/ui.R
+++ b/eoa/ui.R
@@ -102,7 +102,7 @@ shinyUI(fluidPage(
         column(12, class = "light",
                style = "border-width: 0;",
                div(style = "width: 100%",
-                   div("Active Days (Based on last Year)"),
+                   div("Active Days"),
                    plotlyOutput('main_plot', width = "100%", height = "300px")
                ), 
                br()