Split app.R into server and UI

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

+library(shiny)
+library(shinyFiles)
+
+function(input, output, session) {}

vizapp/ui.R

+library(shiny)
+library(shinyFiles)
+
+setwd("../")
+
+fluidPage(
+  includeHTML(Sys.glob("workflow/output/multiqc/*/multiqc_report.html"))
+)