input.Rmd

---

title: "`r params$country`"
# author: "Idalina Sachango"
date: 'Updated 2022-06-27'
output: pdf_document
params:
  country: ""
  code: ""
  city: ""
---

```{r setup, include=FALSE}

knitr::opts_chunk$set(echo = TRUE)
library(ggplot2)
library(sf)
library(tidyverse)
library(viridis)
library(patchwork)
library(scales)
library(tidygeocoder)
library(readxl)
library(units)
library(ggsn)
library(arrow)
library(sfarrow)
library(osmdata)


```

## `r params$country`

```{r}
viz_variables()

plot_k_discrete(data)
```