Add Shiny App

[leppott]

Is your feature request related to a problem? Please describe. Add a Shiny app for metric calculation.

Describe the solution you'd like

• upload a file
• choose MMI
• calculate
• download results as zip file

Describe alternatives you've considered NA

Additional context May need to include

• instructions on file input
• MMI basics
• Review / qc file input structure / content
• Review results (table and plot - use dygraphs or plotly)

[leppott]

Also need a function to launch the Shiny app.

[leppott]

runShinyExample() added v1.0.2.9007.

[leppott]

Basic Structure.

[leppott]

Add plots, using example data sets.

Plot Code

library(ggplot2)

FIBI

plot_FIBI <- ggplot(Metrics.Fish.Scores, aes(IBI), fill=FIBISTRATA, shape=FIBISTRATA) + geom_dotplot(aes(fill=FIBISTRATA)) + #balks at bins=30 labs(x="FIBI") + geom_vline(xintercept = 3) + scale_x_continuous(limits = c(1, 5)) + scale_fill_discrete(name="STRATA", breaks=c("COASTAL", "EPIEDMONT", "HIGHLAND", "COLD")) + theme(axis.title.y=element_blank(), axis.ticks.y=element_blank(), axis.text.y=element_blank()) plot_FIBI

BIBI

plot_BIBI <- ggplot(Metrics.Bugs.Scores.MBSS, aes(IBI), fill=STRATA_R, shape=STRATA_R) + geom_dotplot(aes(fill=STRATA_R)) + labs(x="BIBI") + geom_vline(xintercept = 3) + scale_x_continuous(limits = c(1, 5)) + scale_fill_discrete(name="STRATA", breaks=c("COASTAL", "EPIEDMONT", "HIGHLAND")) + theme(axis.title.y=element_blank(), axis.ticks.y=element_blank(), axis.text.y=element_blank()) plot_BIBI

[leppott]

Remove input file (original uploaded and modified for calculation) from download. Used "pattern = "^results_" in zip command in server.R.

[leppott]

Changed download files from TSV to CSV.