README.Rmd

---
title: "R Notebook"
output: md_document
---

# Public COVID-19 Data for Norway (covid19data.no)

### Motivation
The current state of publicly available data about the COVID-19-situtation in Norway is a mix of [PDF-reports](https://www.fhi.no/sv/smittsomme-sykdommer/corona/dags--og-ukerapporter/dags--og-ukerapporter-om-koronavirus/), [Excel-files](https://www.nav.no/no/nav-og-samfunn/statistikk/arbeidssokere-og-stillinger-statistikk/permitterte), [Power BI-dashboards](https://www.helsedirektoratet.no/statistikk/antall-innlagte-pasienter-pa-sykehus-med-pavist-covid-19) and public registries. Further, much of the data is only released as cumulative statistics at aggregated levels (e.g. [MSIS](http://www.msis.no/)). The absence of detailed data has created a market for media outlets to release local "situation reports" behind paywalls (see: [Aftenposten](https://www.aftenposten.no/norge/i/K3mnr4/i-det-meste-av-landet-bremser-viruset-opp-i-oslo-sprer-det-seg-raskt-fra-bydel-til-bydel)). This project is a an open-source effort to make data about the Covid-19 situtation in Norway available to the public in a timely and coherent manner. Data is updated daily from official sources such as The Institute of Public Health and Norwegian Directorate of Health.

### Contributing to the project
This project is a collaborative and voluntary effort and we would love your help. Please get in touch.

### Examples: Use of data
[![Case Dashboard](docs/img/MSIS_dashboard_full.PNG)](https://www.covid19data.no/examples/01_case_dashboard/)
The [Case Dashboard](https://www.covid19data.no/examples/01_case_dashboard/) and [Case Map](https://www.covid19data.no/examples/02_case_map/) illustrates how the data can potentially be used. These examples show current Covid-19 Cases in Norway at municipality and district-level reported to the Norwegian Surveillance System for Communicable Diseases (MSIS) with fully available source code.


```{r, message=FALSE, warning=FALSE, echo=FALSE}
source("code/utils.R")
tbl <- get_table_data("code/sources.json")
```

```{r, echo=FALSE}
tbl_subset <- tbl %>%  
  filter((label == "Infected" & basename == "municipality_and_district") | label != c("Infected")) %>% 
  filter((label == "Covid tests" & basename == "national_tests") | label != c("Covid tests")) %>% 
  filter((label == "Google Mobility" & basename == "mobility") | label != c("Google Mobility")) %>% 
  mutate_at(vars(download, preview, source), map, htmltools::HTML) %>% 
  mutate_at(vars(category, label), as.character) %>% 
  mutate(preview = str_replace_all(preview, "\\<span.+\\>.+pan>", "preview")) %>% 
  select(Category = category, Data = label, Source = source, Updated = updated, Download = download, Preview = preview) 
```


### Available data

```{r, echo = FALSE}
tbl_subset %>% 
  filter(Category %in% c("Healthcare", "Mobility", "Economics")) %>% 
  knitr::kable("markdown")
```
For further information about the data sources, see this [section](https://www.covid19data.no/data.html).

### Supporting data

```{r, echo = FALSE}
tbl_subset %>% 
  filter(Category %in% c("Lookup tables", "Maps")) %>% 
  select(Category, Data, Download, Preview) %>% 
  knitr::kable("markdown")
```