---
title: "Dashboard de indicadores mundiales"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
runtime: shiny
---

<!-- 
  BLOQUE SETUP
  Cargamos todas las librerías necesarias al inicio:
  - flexdashboard: estructura del dashboard
  - shiny: reactividad e interactividad
  - plotly: gráficos interactivos
  - DT: tablas interactivas
  - openxlsx: lectura de ficheros Excel
  - tidyverse: manipulación de datos (dplyr, ggplot2...)
  El argumento include=FALSE evita que el código y su salida aparezcan en el dashboard.
-->

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(plotly)
library(DT)
library(openxlsx)
library(tidyverse)

owid_country <- read.xlsx("https://ctim.es/AEDV/data/owid_country.xlsx", sheet = 1) |>
  as_tibble()
```

Sidebar {.sidebar data-width=230}
--------------------------------------------------

<!-- 
  SIDEBAR
  La barra lateral se declara con {.sidebar}. Contiene los controles de entrada
  (inputs) que el usuario manipula para filtrar los datos mostrados en el dashboard.
  data-width controla su anchura en píxeles.
-->


**Instrucciones:** Seleccione un continente y un indicador para explorar
la relación con el PIB per cápita.



<!-- 
  selectInput() crea un desplegable. Sus argumentos principales son:
    - inputId ("continente"): nombre interno para acceder al valor con input$continente
    - label: texto visible para el usuario
    - choices: vector de opciones disponibles
    - selected: opción marcada por defecto
  Añadimos "Todos" manualmente antes de los continentes del dataset.
-->

```{r}
selectInput("continente", "Continente:",
            choices = c("Todos", unique(owid_country$continent)),
            selected = "Todos")

selectInput("indicador_y", "Indicador eje Y:",
            choices = c("life_expectancy", "median_age", "human_development_index",
                        "hospital_beds_per_thousand"),
            selected = "life_expectancy")
```


<!-- 
  EXPRESIÓN REACTIVA: reactive()
  reactive() crea un objeto que se recalcula automáticamente cada vez que
  cambia alguno de los inputs que usa en su interior (aquí: input$continente).
  Se invoca como una función: datos() — los paréntesis son obligatorios.
  Centralizar el filtrado aquí evita repetir la lógica en cada output.
-->

```{r}
datos <- reactive({
  if (input$continente == "Todos") {
    owid_country
  } else {
    owid_country |> filter(continent == input$continente)
  }
})
```

<!-- 
  renderTable() genera una tabla HTML básica de Shiny.
  Es la opción más sencilla cuando no se necesita interactividad avanzada.
  !!sym() convierte el string de input$indicador_y en un nombre de columna
  que dplyr puede interpretar dentro de select().
-->

```{r}
renderTable({
  datos() |>
    select(País = location, Valor = !!sym(input$indicador_y)) |>
    arrange(desc(Valor))
}, digits = 2)
```

Row {data-height=150}
--------------------------------------------------

<!-- 
  VALUE BOXES — primera fila
  Con orientation: rows, cada Row define una franja horizontal.
  data-height fija su altura en píxeles.
  Los value boxes son tarjetas de resumen de un único número.
  renderValueBox() los hace reactivos: se actualizan al cambiar los inputs.
  Argumentos de valueBox():
    - value: el número o texto principal
    - caption: etiqueta descriptiva
    - icon: icono de Font Awesome (prefijo "fa-")
    - color: "primary", "success", "warning", "danger" o "info"
-->

### Países

```{r}
renderValueBox({
  n <- nrow(datos())
  valueBox(n, caption = "Países", icon = "fa-globe", color = "primary")
})
```

### Esperanza de vida media

```{r}
renderValueBox({
  media <- round(mean(datos()$life_expectancy, na.rm = TRUE), 1)
  # El color cambia condicionalmente según el valor: semáforo de salud
  color <- ifelse(media > 75, "success", ifelse(media > 65, "warning", "danger"))
  valueBox(paste0(media, " años"), caption = "Esperanza de vida",
           icon = "fa-heartbeat", color = color)
})
```

### PIB per cápita medio

```{r}
renderValueBox({
  media <- round(mean(datos()$gdp_per_capit, na.rm = TRUE), 0)
  valueBox(paste0(media, " $"), caption = "PIB per cápita",
           icon = "fa-dollar-sign", color = "info")
})
```

Row {.tabset data-height=650}
--------------------------------------------------

<!-- 
  TABSET — segunda fila
  {.tabset} convierte los ### de esta fila en pestañas navegables.
  Cada ### es una pestaña independiente; solo se renderiza la activa.
-->

### Dispersión

<!-- 
  renderPlotly() convierte un gráfico ggplot2 en interactivo mediante ggplotly().
  validate() + need() detiene la ejecución y muestra un mensaje amigable
  si la condición no se cumple, evitando errores en pantalla.
  .data[[var]] es la forma tidyverse de referenciar columnas por nombre dinámico.
  scale_x_continuous(transform="log2") aplica escala logarítmica en base 2 al eje X,
  útil cuando los datos tienen distribución muy asimétrica como el PIB.
-->

```{r}
renderPlotly({
  validate(need(nrow(datos()) > 0, "No hay datos para esta selección"))

  p <- datos() |>
    ggplot(aes(x = gdp_per_capit, y = .data[[input$indicador_y]],
               label = location)) +
    geom_point(color = "steelblue", size = 2) +
    scale_x_continuous(transform = "log2") +
    geom_smooth(method = lm, se = FALSE, color = "firebrick") +
    labs(x = "PIB per cápita (log)", y = input$indicador_y)

  ggplotly(p)
})
```

### Tabla

<!-- 
  DT::renderDataTable() genera tablas interactivas con búsqueda, ordenación
  y paginación integradas. Es más potente que renderTable() pero más pesado.
  !!sym() permite usar el valor de input$indicador_y como nombre de columna en select().
  formatRound() aplica formato numérico con el número de decimales indicado
  directamente sobre las columnas de la tabla renderizada.
  scrollX = TRUE añade scroll horizontal cuando hay muchas columnas.
-->

```{r}
DT::renderDataTable({
  validate(need(nrow(datos()) > 0, "No hay datos"))

  datos() |>
    select(location, life_expectancy, gdp_per_capit,
           !!sym(input$indicador_y)) |>
    arrange(desc(.data[[input$indicador_y]])) |>
    DT::datatable(options = list(pageLength = 15, scrollX = TRUE)) |>
    DT::formatRound(columns = c("life_expectancy", "gdp_per_capit"), digits = 1)
})
```