inst/flaccogui/app.R

In flacco: Feature-Based Landscape Analysis of Continuous and Constrained Optimization Problems

library(shiny)
library(smoof)
#dependencies for shinyapps.io follow
library(e1071)
library(flacco)
library(ggplot2)
library(lhs)
library(MASS)
library(Matrix)
library(mda)
library(mlbench)
library(numDeriv)
library(parallel)
library(parallelMap)
library(ParamHelpers)
library(plotly)
library(plyr)
library(RANN)
library(rpart)
library(shape)
library(testthat)

ui = shiny::navbarPage("flaccoGUI",theme = "flacco.css",
  shiny::tabPanel("Single Function Analysis",
    shiny::sidebarLayout(
      featureObject_sidebar("feature_function"),
      shiny::mainPanel(
        # Tabset panel for the different possibilites to put input in the app
        shiny::tabsetPanel(
          shiny::tabPanel("Feature Calculation",
            FeatureSetCalculationComponent("featureSet_Calculation")
          ),
          shiny::tabPanel("Visualization",
            FeatureSetVisualizationComponent("featureSet_Visualization")
          )
        )
      )
    )
  ),
  #CSV-Import tab for BBOB Functions
  shiny::tabPanel("BBOB-Import",
    BBOBImportPage("BBOB_import_page")
  ),

  #CSV-Import for other smoof Functions
  shiny::tabPanel("smoof-Import",
    SmoofImportPage("smoof_import_page")
  )
)

server = function(input, output) {
  featureObject = shiny::callModule(functionInput, "feature_function",
    stringsAsFactors = FALSE)
  shiny::callModule(FeatureSetCalculation, "featureSet_Calculation",
    stringsAsFactors = FALSE, shiny::reactive(featureObject()))
  shiny::callModule(FeatureSetVisualization, "featureSet_Visualization",
    stringsAsFactors = FALSE, shiny::reactive(featureObject()))
  shiny::callModule(BBOBImport, "BBOB_import_page",
    stringsAsFactors = FALSE)
  shiny::callModule(SmoofImport, "smoof_import_page",
    stringsAsFactors = FALSE)
}

shiny::shinyApp(ui,server)