meta_dashboard.rmd

---
title: "Rare Disease Meta-Analysis"
output: 
  flexdashboard::flex_dashboard:
    orientation: row
    vertical_layout: scroll
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
```

Column {data-width=350}
-----------------------------------------------------------------------

### Input

  This dashboard queries ClinicalTrials.gov. Researchers running clinical trials are required to register their trials, but submitting their results is optional. Many trials and other research are not available from ClinicalTrials.gov. Thus, the querying tool is very limited in the studies it uses for analysis. Thank you for your patience with this beta version.
  
  Input the disease and treatment drug that you want to evaluate, and the output will be a meta-analysis limited to the study results available on ClinicalTrials.gov.
  
```{r}
  textInput("disease", "Disease")
  
  textInput("drug", "Drug")
```
  


Column {data-width=650}
-----------------------------------------------------------------------

### Summary Statistics

```{r, fig.width=7, fig.height=6}
joy = read.csv("lam_meta_clean.csv")
library("meta")
library("metasens")

settings.meta(digits = 2)

library(AutoMetaAnalysis)
meta.obj <- meta.calc(joy, "Lymphangioleiomyomatosis")
summary(meta.obj)


```

### Forest Plot

```{r, fig.width=11, fig.height=5}

forest(meta.obj)

```