flip/eth_activity
1
0
Fork 0
mirror of https://github.com/FlipsideCrypto/eth_activity.git synced 2026-02-06 10:46:46 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

layout

Browse Source 
work on new activity score
This commit is contained in:
Carlos R. Mercado 2022-08-23 12:28:16 -04:00
parent 5eb91ea7f0
commit 0d082ff6fb
2 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
eoa/server.R
View File

@ -22,14 +22,17 @@ shinyServer(function(input, output, session) {
eoa_stats <- reactive({
da <- length(unique(results()$date))
eoa_activity <- list(
"TX Count" = sum(results()$NUM_TX),
"Days Active" = length(unique(results()$date)),
"Transactions" = sum(results()$NUM_TX),
"Days Active" = da,
"Activity Score" = {
paste0(
100 *
round(
eoa_daily_history[eoa_daily_history$UNIQUE_DAYS == length(unique(results()$date)), "eoa_cumprop"],
eoa_daily_history[eoa_daily_history$UNIQUE_DAYS == da, "eoa_cumprop"],
4)
)
}

19
eoa/ui.R
View File

@ -68,25 +68,24 @@ shinyUI(fluidPage(
class = 'chart-block',
div(class = 'chart-title', span('Your ETH Activity')),
div(class = 'chart',
div(class = 'heat',
conditionalPanel("input.submit > 0",
uiOutput('heatmap'))
),
fluidRow(
column(3,
conditionalPanel("input.submit > 0",
div(class = 'eoa-tbl',
uiOutput('compare'))
)),
column(9,
div(class = 'heat',
conditionalPanel("input.submit > 0",
uiOutput('heatmap'))
)
),
column(9,
plotlyOutput("main_plot")
)
)
),
plotlyOutput("main_plot")
)
)
)
)
) # end FluidPage
) # end shinyUI