Merge branch 'Vizapp' into 'develop'

Add Vizapp of multiqc results

See merge request !47

vizapp/app.R

+library(shiny)
+library(shinyFiles)
+
+setwd("../")
+
+ui <- fluidPage(
+    includeHTML("workflow/output/multiqc/test/multiqc_report.html")
+)
+
+server <- function(input, output, session) {}
+
+shinyApp(ui, server)

vizapp/server.R

-# This example implements a simple file browser for accessing results.
-
-library(shiny)
-library(shinyFiles)
-
-# Results are available in the directory specified by the outputDir environment
-# variable, red by Sys.getenv
-
-rootdir <- Sys.getenv('outputDir')
-
-
-shinyServer(function(input, output, session) {
-
-    # The backend for a simple file chooser, restricted to the
-    # rootdir we obtained above.
-    # See https://github.com/thomasp85/shinyFiles
-
-    shinyFileChoose(input, 'files', roots=c('workflow'=rootdir), filetypes=c('', 'bed', 'xls','wig'), session=session)
-
-})

vizapp/ui.R

-library(shiny)
-library(shinyFiles)
-
-
-shinyUI(fluidPage(
-
-  verticalLayout(
-
-    # Application title
-    titlePanel("Astrocyte Example"),
-
-    wellPanel(
-
-        helpText("This is a minimal example, demonstrating how
-        a Shiny visualization application can access the output of a workflow.
-        Here we provide a file browser using the shinyFiles package. Real
-        Astrocyte vizapps would provide custom methods to access and visualize
-        output."),
-
-        helpText("The workflow output is in the directory set in the
-        outputDir environment variable. this can be retrieved in R with the
-        command Sys.getenv('outputDir')"),
-
-        # A simple file browser within the workflow output directory
-        # See https://github.com/thomasp85/shinyFiles
-        shinyFilesButton('files', label='Browse workflow output', title='Please select a file', multiple=FALSE)
-
-    )
-  )
-))

[Gervaise Henry]

DO NOT PUBLISH