multiTable.Rmd

---
title: "**Multi-data type Platforms**"
output: html_document
---

<style type="text/css">
  body{
  text-align: justify;
  text-justify: inter-word;
}
</style>

### **Overview**

The following table contains a list of informatics and biomedical platforms that can help researchers work with **multiple types** of publicly available data and or their own data. These platforms provide computing resource support across different areas of bioinformatics research.

```{r,echo=FALSE,results='hide',message=FALSE, warning=FALSE}
#Load DT, dplyr
library(DT)
library(here)
library(tidyverse)
library(magrittr)

source("scripts/format-tables.R")
```

**Table keys:**
<div title="Table keys">
<img src="resources/images/Hyperlink2.png"  height="30"> </img> = Main Link, <img src="resources/images/Documentation2.png" height="30"> </img> = Documentation, <img src="resources/images/Publication2.png" height="30"> </img> = Publications, &nbsp; <img src="ITCRLogo.png" height="25"> </img> = ITCR Funded
</div>

```{r,echo=FALSE,results='hide',message=FALSE, warning=FALSE}
# Load file for General Table and make additions/edits here in this block
generalData <- read_csv(file = here::here("data/itcr_table_general.csv")) %>%
  rename("Unique Factor" = "Unique Factor (free trial, extra guidance, privacy protection, development, unique dataset?)")

#While reworking the code, saw that ICGC and PCAWG were not separated by a comma and therefore ICGC wasn't linked
tibbleCGC <- tibble(
  Name = "Cancer Genome Collaboratory",
  `Data Provided` = "ICGC, PCAWG, DCC"
)

generalData <- dplyr::rows_update(generalData, tibbleCGC, by = "Name")

```

```{r,echo=FALSE,results='hide',message=FALSE, warning=FALSE}
modified_general <- formatTheTables(generalData, "General", non_resource = TRUE)
# save to the data folder
#write_csv(modified_general, file = "data/modified_general.csv")
```

```{r,echo=FALSE,results='hide',message=FALSE, warning=FALSE}
# Create a General Table

columnDefsListOfLists <- list(list(className = 'dt-center', targets = "_all"),
                                     list(width = '280px', targets = c(2)) ,
                                     list(width = '120px', targets = c(3))
                              )

ITCR_general <- setup_dt_datatable(modified_general, columnDefsListOfLists)
```

```{r,echo=FALSE,message=FALSE, warning=FALSE}
#display the ITCR general table
ITCR_general
```