mainPage.Rmd

---
title: Interactive Cluster Analysis
author: Stefan Avey
output:
html_document:
       toc: true
       toc_depth: 2
runtime: shiny
---

```{r createDocument, eval=FALSE, echo=FALSE}

library(rmarkdown)
rmarkdown::run('mainPage.Rmd') # for interactive document

## For deployment to shinyapps.io only!
library(shinyapps)
shinyapps::deployApp(appDir=getwd(), appName="cluster-analysis")

```

# Introduction
```{r intro, echo = FALSE, eval=TRUE}
includeMarkdown("introduction/intro.md")
```

# Upload data
Use the file uploader below to select a CSV file.

```{r fileupload, echo = FALSE, eval=TRUE, message=FALSE, warning=TRUE}
datGlobal <- NULL # Start with NULL and set when file is uploaded
 shinyAppDir(
     "fileUpload/",
     options=list(width="100%", height=600)
	 )
```

## Clustering
```{r clustering, echo = FALSE, eval=TRUE, message=FALSE, warning=TRUE}
shinyAppDir(
     "clustering/",
     options=list(width="100%", height=700)
   )
```

## Gene Ranking
```{r ranking, echo = FALSE, eval=TRUE, message=FALSE, warning=TRUE}
shinyAppDir(
     "ranking/",
     options=list(width="100%", height=700)
   )
```

# Acknowledgements
```{r acknowledge, echo = FALSE, eval=TRUE}
includeMarkdown("acknowledgements/ack.md")
```

<footer>
<center><medium>View <a href="http://github.com/stefanavey/cluster-analysis" target="_blank" title="Cluster Analysis Source Code">Source Code</a> on Github</medium></center>
<center><small><em>Version 0.0.1004</em> - Last Updated 2015-05-04</small></center>
</footer>