btc_dashboard.qmd

---
title: "A bitcoin dashboard"
server: shiny
format:
  dashboard:
    orientation: rows
    scrolling: true
    theme: lux
---

```{css}
/* Adjusting font size in valueboxes */
.quarto-dashboard .bslib-value-box .value-box-value {
    font-size: clamp(.1em, 10cqw, 5em) !important;
}
```

```{r}
#| context: setup
#| include: false

options(scipen=999)

library(shiny)
library(dplyr)
library(ggplot2)
library(plotly)
library(DT)
library(lubridate)
library(bslib)
library(bsicons)

source("scripts/prices.R")
source("scripts/transactions.R")
# source("scripts/nodes.R") | Needs to be pre processed while hosting in shinyapps.io
load("data/nodes.RData")
```

# Basic metrics

## Row {height="200"}

### Column
```{r}
#| expandable: false

uiOutput("current_price_box")

```

### Column
```{r}
#| expandable: false

uiOutput("total_transactions_box")

```


## Row

### {.sidebar}

```{r}

radioButtons("time_period",
            label = "Select Time Period:",
            choices = list("7 days" = "7d",
                           "1 month" = "1m", 
                           "3 months" = "3m", 
                           "1 year" = "1a", 
                           "Maximum" = "max"),
                  selected = "max")

```


### Column {.tabset}

```{r}
#| title: "Daily USD price"
#| padding: 0px

plotlyOutput("plot_btcprice")

```

```{r}
#| title: "Log"
#| padding: 0px

plotlyOutput("plot_btcprice_log")

```

```{r}
#| context: server

date_range <- range(btcprice$date)
start_date <- date_range[1]
end_date <- date_range[2]

btcprice_reactive <- reactive({

  btcprice |>
    filter(date >= case_when(
      input$time_period == "7d" ~ end_date - 7,
      input$time_period == "1m" ~ end_date  %m-% months(1),
      input$time_period == "3m" ~ end_date  %m-% months(3),
      input$time_period == "1a" ~ end_date  %m-% years(1),
      input$time_period == "max" ~ start_date
      ))

})

### First plot

output$plot_btcprice <- renderPlotly({

  p1 <- ggplot(btcprice_reactive(), aes(date, price)) +
    geom_line(linewidth = 0.8) +
    ylab("") +
    xlab("") +
    scale_x_date(date_breaks = "2 years", date_labels = "%Y") +
    theme(plot.background = element_rect(fill = "#FCE9D6"),
          panel.background = element_rect(fill = "#FCE9D6"))

  ggplotly(p1)

})

### Second plot

output$plot_btcprice_log <- renderPlotly({

  p2 <- ggplot(btcprice_reactive(), aes(date, price)) +
    geom_line(linewidth = 0.8) +
    ylab("") +
    xlab("") +
    scale_x_date(date_breaks = "2 years", date_labels = "%Y") +
    theme(plot.background = element_rect(fill = "#FCE9D6"),
          panel.background = element_rect(fill = "#FCE9D6")) +
    scale_y_continuous(trans='log10', limits = c(NA, 1e6),
                       breaks = c(1, 10, 100, 1000, 10000, 100000, 1000000))

  ggplotly(p2)

})

```


### Column {.tabset}

```{r}
#| title: "Daily transactions"
#| padding: 0px

plotlyOutput("plot_txs")

```

```{r}
#| title: "Cumulative"
#| padding: 0px

plotlyOutput("plot_cum_txs")

```

```{r}
#| context: server

date_range <- range(df_txs$date)
start_date <- date_range[1]
end_date <- date_range[2]

df_txs_reactive <- reactive({
  
  df_txs |>
    filter(date >= case_when(
      input$time_period == "7d" ~ end_date - 7,
      input$time_period == "1m" ~ end_date  %m-% months(1),
      input$time_period == "3m" ~ end_date  %m-% months(3),
      input$time_period == "1a" ~ end_date  %m-% years(1),
      input$time_period == "max" ~ start_date
      ))
  
})

### First plot

output$plot_txs <- renderPlotly({
  
  p3 <- ggplot(df_txs_reactive(), aes(date, txs)) +
    geom_line(linewidth = 0.5) +
    ylab("") +
    xlab("") +
    scale_x_date(date_breaks = "2 years", date_labels = "%Y") +
    theme(plot.background = element_rect(fill = "#FCE9D6"),
          panel.background = element_rect(fill = "#FCE9D6"))
  
  ggplotly(p3)
  
})

### Second plot

output$plot_cum_txs <- renderPlotly({
  
  p4 <- ggplot(df_txs_reactive(), aes(date, cum_txs)) +
    geom_line(linewidth = 0.5) +
    ylab("") +
    xlab("") +
    scale_x_date(date_breaks = "2 years", date_labels = "%Y") +
    theme(plot.background = element_rect(fill = "#FCE9D6"),
          panel.background = element_rect(fill = "#FCE9D6"))
  
  ggplotly(p4)
  
})

```

## Row

### Column 

```{r}
#| title: "Bitcoin's average yearly USD price"

datatable(yearly_price,
          options = list(
            lengthChange = FALSE,
            searching = FALSE,
            paging = FALSE,
            info = FALSE,
            columnDefs = list(list(className = 'dt-center', targets = "_all"))
            ),
          rownames = FALSE) |>
  formatPercentage("year_var") |>
  formatCurrency("avg_price",
                 currency = "$") |>
  formatStyle(names(yearly_price),
              textAlign = "center",
              target = "cell")  |>
  formatStyle("year_var",
              fontWeight = "bold",
              backgroundColor = styleInterval(c(-0.01, 0.01),
                                              c("#FFCDD2", "#FCE9D6", "#C8E6C9")))


```

### Column

```{r}
#| title: "Bitcoin's yearly transactions"

datatable(yearly_txs,
          options = list(
            lengthChange = FALSE,
            searching = FALSE,
            paging = FALSE,
            info = FALSE,
            columnDefs = list(list(className = 'dt-center', targets = "_all"))
            ),
          rownames = FALSE) |>
  formatPercentage("year_var") |> 
  formatStyle(names(yearly_txs),
              textAlign = "center",
              target = "cell")  |> 
  formatStyle("year_var",
              fontWeight = "bold",
              backgroundColor = styleInterval(c(-0.01, 0.01),
                                              c("#FFCDD2", "#FCE9D6", "#C8E6C9")))


```


## Row

<a href="https://github.com/manuelgirbal/btc_dashboard/" style="text-decoration: none; color: inherit;">
  <i class="bi bi-github"></i> GitHub source code
</a>


# Nodes

## Row {height="200"}

### Column

```{r}
#| expandable: false

uiOutput("total_nodes_box")

```

### Column
```{r}
#| expandable: false

uiOutput("tor_nodes_box")

```

## Row 

```{r}
#| title: "Bitcoin's currently running nodes"
#| padding: 0px

nodes_map

```

```{r}
#| context: server

output$current_price_box <- renderUI({
  value_box(
    title = "Current price",
    value = paste("$", round(tail(btcprice$price, 1), 1)),
    showcase = bs_icon("currency-bitcoin"),
    theme = "primary"
  )
})

output$total_transactions_box <- renderUI({
  value_box(
    title = "Total transactions",
    value = sum(df_txs$txs),
    showcase = bs_icon("wifi"),
    theme = "primary"
  )
})

output$total_nodes_box <- renderUI({
  value_box(
    title = "Reachable nodes (https://bitnodes.io/)",
    value = nrow(nodes_df),
    showcase = bs_icon("router-fill"),
    theme = "primary"
  )
})

output$tor_nodes_box <- renderUI({
  value_box(
    title = "TOR nodes (not located in map)",
    value = nrow(filter(nodes_df, asn == "TOR")),
    showcase = bs_icon("incognito"),
    theme = "primary"
  )
})

```


## Row

Last update: `r Sys.Date()`

## Row

<a href="https://github.com/manuelgirbal/btc_dashboard/" style="text-decoration: none; color: inherit;">
  <i class="bi bi-github"></i> GitHub source code
</a>