---
title: "gapminder"
format: 
  dashboard:
        logo: mappamondo.jpeg
---

```{r}
knitr::read_chunk("analisi-gapminder.R")
```

```{r carica-librerie}
```


## {.sidebar}

### Gapminder

![](gapminder.jpeg)

Puoi navigare tra i dati del dataset `gapminder` usando una delle due schede: 

- vista sui [continenti](#continenti)
- vista sull'[Europa](#europa)


# Continenti

## Prima riga {height=25%}
```{r indicatori-pagina-uno}
```


```{r}
#| content: valuebox
#| title: !expr 'paste(indicatori_pag1$continent[1])'
list(
  icon = "apple",
  color = "#FF0000",
  value = round(indicatori_pag1$life_exp[1], 1)
)
```

```{r}
#| content: valuebox
#| title: !expr 'paste(indicatori_pag1$continent[2])'
list(
  icon = "apple",
  color = "#FF5533",
  value = round(indicatori_pag1$life_exp[2], 1)
)
```

```{r}
#| content: valuebox
#| title: !expr 'paste(indicatori_pag1$continent[3])'
list(
  icon = "apple",
  color = "#FFFF00",
  value = round(indicatori_pag1$life_exp[3], 1)
)
```

```{r}
#| content: valuebox
#| title: !expr 'paste(indicatori_pag1$continent[4])'
list(
  icon = "apple",
  color = "#B8FFB8",
  value = round(indicatori_pag1$life_exp[4], 1)
)
```


```{r}
#| content: valuebox
#| title: !expr 'paste(indicatori_pag1$continent[5])'
list(
  icon = "apple",
  color = "#B8B8FF",
  value = round(indicatori_pag1$life_exp[5], 1)
)
```

## Seconda riga {width=75%}

### Row {.tabset}
```{r tabella-lifeExp}
```

```{r}
#| title: Life Expectancy
knitr::kable(scheda_lifeExp)
```

```{r tabella-GDP}
#| title: GDP per capite
```

```{r tabella-pop}
#| title: Population
```

### Grafico


```{r grafico-lifeExp}
```

# Europa
<!-- # Pagina 2 (vista singolo continente) -->

## Prima riga {height=15%}
```{r}
#| content: valuebox
#| title: "1977"
list(
  color = "#EDF4F7",
  value = 100
)
```

```{r}
#| content: valuebox
#| title: "1982"
list(
  color = "#D4E5ED",
  value = 100
)
```

```{r}
#| content: valuebox
#| title: "1987"
list(
  color = "#ACCDDC",
  value = 100
)
```

```{r}
#| content: valuebox
#| title: "1992"
list(
  color = "#8CBACF",
  value = 100
)
```

```{r}
#| content: valuebox
#| title: "1997"
list(
  color = "#6CA6C1",
  value = 100
)
```

```{r}
#| content: valuebox
#| title: "2002"
list(
  color = "#4B93B4",
  value = 100
)
```

```{r}
#| content: valuebox
#| title: "2007"
list(
  color = "#3E7893",
  value = 100
)
```

## Seconda riga {width=85%}
```{r}
print("Tabella")
```

