# Only run this example in interactive R sessions
if (interactive()) {
library("shiny")
library("shinydashboard")
library("shinyWidgets")
library("readxl")
library("Metrics")
library("particle.swarm.optimisation")
library("cmna")
library("expm")
library("plotly")
library("ggplot2")
library("scales")
library("dplyr")
run_app <- function(){
shiny::shinyApp(ui, server, options = list(launch.browser = TRUE))
}
}
Run the code above in your browser using DataLab