---
title: "diffHTS screening report"
output: html_document
params:
  hits: null
  drc: null
  primary: null
---

```{r setup, include = FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library(diffHTS)
```

# Overview

This report was generated by `diffHTS::generate_hts_report()`. Sections are
rendered only when the corresponding object is supplied via `params`.

```{r primary, eval = !is.null(params$primary)}
knitr::kable(summarize_primary_hit(params$primary),
  caption = "Primary screen summary")
plot_primary_inhibition_rank(params$primary)
```

```{r drc, eval = !is.null(params$drc)}
knitr::kable(head(params$drc$meta, 20), caption = "Dose-response curve metrics")
plot_batch_drc_overlay(params$drc)
```

```{r hits, eval = !is.null(params$hits)}
knitr::kable(head(params$hits, 30), caption = "Ranked hit compounds")
plot_hit_stratify_bar(params$hits)
```
