Revert to origional vizapp

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"))
-)