2019-12-18 21:23:42 +01:00
|
|
|
---
|
|
|
|
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}
|
2020-05-02 01:46:04 +02:00
|
|
|
source("renv/activate.R")
|
2019-12-18 21:23:42 +01:00
|
|
|
```
|
|
|
|
|
|
|
|
## 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)
|
|
|
|
```
|