Commit 66170b99 authored by Jeremy Mathews's avatar Jeremy Mathews
Browse files

Split app.R into server and UI

parent 61ebdc45
Pipeline #4813 passed with stages
in 1 minute and 59 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