index.rmd

---
title: "SNSF Budget"
output: 
  flexdashboard::flex_dashboard:
    theme: cerulean
    social: menu
    source_code: https://git.io/vb2Tv
editor_options: 
  chunk_output_type: console
---

```{r boilerplate, include=FALSE}
if (!require(pacman)) install.packages("pacman")
if (!require(janitor)) install.packages("janitor")
p_load(
  "flexdashboard", 
  "networkD3",
  "tidyverse", 
  "magrittr",
  "lubridate",
  "here")
YEAR <- 2019
```

```{r read, cache=TRUE, include=FALSE}
here("R", "read.R") %>% source(verbose = TRUE)
```

```{r logic, include=FALSE}
here("R", "logic.R") %>% source(verbose = TRUE)
```

Column
-------------------------------------

### Approved Amounts for SNSF Grants Starting in `r YEAR`

```{r frontend}
sankeyNetwork(
  Links = links,
  Nodes = nodes,
  Source = "source",
  Target = "target",
  Value = "value",
  NodeID = "name"
  units = "CHF",
  fontSize = 14,
  nodeWidth = 45)
```

> Last updated: `r Sys.time()`. Compiled with `r version$version.string`.