using alltime eoa activity again sorry

This commit is contained in:
theericstone 2022-09-02 14:54:19 -04:00
parent e8d544d04f
commit 428bbc11f4
3 changed files with 11 additions and 8 deletions

View File

@ -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) %>%

View File

@ -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

View File

@ -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()