notebook_quality_table_report.Rmd

---
title: "Module - Rendering quality report"
author: "BTC Pipeline"
date: "`r Sys.time()`"
output:
  html_document:
    toc: TRUE
    toc_float: TRUE
    toc_depth: 4
    code_folding: show
    theme: united
    self_contained: TRUE
params:
  project_name: 'Test'
  input_metrics_report: './data/Test_metrics_report.csv'
  n_threads: 8
  n_memory: 16
  workdir: !r here::here()
  timestamp: !r Sys.Date()
  auto_save: TRUE
---


# Project Name: `r params$project_name`

```{r setup, message = FALSE, warning = FALSE, echo = TRUE}

# Project parameters 
project_name <- params$project_name
input_metrics_report <- strsplit(
  params$input_metrics_report, split = ';')[[1]]

# Dataflow/Computational parameters
n_threads <- params$n_threads
n_memory <- params$n_memory

# Output parameters
work_directory <- params$workdir
timestamp <- params$timestamp
auto_save <- params$auto_save

knitr::opts_chunk$set(echo = TRUE)
knitr::opts_knit$set(
  root.dir = work_directory,
  error = TRUE
  )

```

## Loading library

```{r library, message = FALSE, warning = FALSE, echo = TRUE}

library(readr)
library(dplyr)
library(ggplot2)
library(DT)

```

## Report interactive table

```{r merging_report, message = FALSE, warning = FALSE, echo = TRUE}

metric_report_db <- data.frame()

for (sample_metric in input_metrics_report) {
  metric_report_tmp <- read_csv(file = sample_metric)
  metric_report_db <- rbind(
        metric_report_db,
        metric_report_tmp
    )

}

datatable(metric_report_db, 
    class = 'cell-border stripe',
    rownames = FALSE,
    filter = 'top',
    width = '100%', 
    options = list(scrollX = TRUE))

```