Skip to content
Snippets Groups Projects
Commit 07fb01f8 authored by Gervaise Henry's avatar Gervaise Henry :cowboy:
Browse files

Merge branch 'Vizapp' into 'develop'

Add Vizapp of multiqc results

See merge request !47
parents ef15575a 61ebdc45
Branches
Tags
3 merge requests!59Develop,!58Develop,!47Add Vizapp of multiqc results
Pipeline #4811 passed with stages
in 1 minute and 45 seconds
library(shiny)
library(shinyFiles)
setwd("../")
ui <- fluidPage(
includeHTML("workflow/output/multiqc/test/multiqc_report.html")
)
server <- function(input, output, session) {}
shinyApp(ui, server)
# 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)
})
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)
)
)
))
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment