Commit a646910c authored by Jeremy Mathews's avatar Jeremy Mathews
Browse files

Revert to origional vizapp

parent 66170b99
Pipeline #4819 passed with stages
in 2 minutes and 23 seconds
library(shiny)
library(shinyFiles)
setwd("../")
ui <- fluidPage(
includeHTML("workflow/output/multiqc/test/multiqc_report.html")
)
server <- function(input, output, session) {}
shinyApp(ui, server)
library(shiny)
library(shinyFiles)
function(input, output, session) {}
library(shiny)
library(shinyFiles)
setwd("../")
fluidPage(
includeHTML(Sys.glob("workflow/output/multiqc/*/multiqc_report.html"))
)
Markdown is supported
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