R/report_view.R

In mrbarrientosg/iraceStudio: An Amazing Shiny App

ReportView <- R6::R6Class(
  classname = "ReportView",
  inherit = View,
  public = list(
    summaryCard = NULL,
    bestConfigurationCard = NULL,
    candidatesCard = NULL,
    performanceCard = NULL,
    detailByIterationCard = NULL,
    executionSelect = NULL,

    initialize = function(id) {
      super$initialize(id)
      self$summaryCard <- SummaryCard$new()
      self$bestConfigurationCard <- BestConfigurationCard$new()
      self$candidatesCard <- CandidatesCard$new()
      self$performanceCard <- PerformanceCard$new()
      self$detailByIterationCard <- DetailByIterationCard$new()
      self$executionSelect <- ExecutionSelect$new()
    },

    ui = function() {
      ns <- NS(self$id)

      tagList(
        fluidRow(
          class = "justify-content-between",
          style = "height: 90px;",
          column(
            width = 5,
            h2("Report"),
            p("(Development) View here the irace execution report")
          ),
          column(
            width = 7,
            class = "d-flex align-items-center justify-content-end",
            self$executionSelect$ui(inputId = ns("executions"))
          )
        ),
        fluidRow(
          self$summaryCard$ui(inputId = ns("summary")),
          self$bestConfigurationCard$ui(inputId = ns("best_config")),
          self$candidatesCard$ui(inputId = ns("candidates")),
          self$performanceCard$ui(inputId = ns("performance")),
          self$detailByIterationCard$ui(inputId = ns("detail_by_iteration"))
        )
      )
    },

    server = function(input, output, session, store) {
      self$summaryCard$call(id = "summary", store = store)
      self$bestConfigurationCard$call(id = "best_config", store = store)
      self$candidatesCard$call(id = "candidates", store = store)
      self$performanceCard$call(id = "performance", store = store)
      self$detailByIterationCard$call(id = "detail_by_iteration", store = store)
      self$executionSelect$call(id = "executions", store = store)
    }
  )
)