---
title: "Compliance Report"
author:
    - "MoSHI Pipeline"
date: "`r format(Sys.time(), '%d %B, %Y')`"
params:
   rmd: "compliance_report.Rmd"
output:
  html_document:
  highlight: tango
  number_sections: no
  theme: default
  toc: yes
  toc_depth: 3
  toc_float:
    collapsed: no
    smooth_scroll: yes
---

```{r include=FALSE}
source("renv/activate.R")
```

## Overall phone compliance

```{r, echo=FALSE}
htmltools::includeHTML(snakemake@input[["compliance_heatmap"]])
```

## Per sensor compliance
```{r, echo=FALSE}
heatmaps  <- snakemake@input[["sensor_heatmaps"]]
heatmaps.html <- vector(mode="list", length(heatmaps))

for(sensor_id in 1:length(heatmaps)){
    heatmaps.html[[sensor_id]] <- htmltools::includeHTML(heatmaps[sensor_id])
}
htmltools::tagList(heatmaps.html)
```