---
title: '`r logo_path <- system.file("extdata", "logo.png", package = "pathfindR"); knitr::opts_chunk$set(out.width="15%"); knitr::include_graphics(logo_path)` pathfindR - Converted Genes and Genes without Interactions' 
date: "`r format(Sys.time(), '%d %B, %Y')`"
output: html_document
params:
  df: ""
  original_df: ""
---

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

## Table of Converted Gene Symbols
```{r converted_tbl, table1, comment=NA}
genes_df <- params$df
colnames(genes_df) <- c("Old Symbol", "New Symbol", "Change", "p-value")
genes_df <- genes_df[genes_df[, 1] != genes_df[, 2], ]
knitr::kable(genes_df, align = "c", table.caption.prefix ="")
```

## Table of Genes without Interactions (not found in the PIN)
```{r gene_wo_interaction, table2, comment=NA}
org_df <- params$original_df
missing_df <- org_df[!org_df[, 1] %in% params$df[, 1], ]
knitr::kable(missing_df, align = "c", table.caption.prefix ="")
```
