R/sandbox_select.R

In mrbarrientosg/iraceStudio: An Amazing Shiny App

SandboxSelect <- R6::R6Class(
  classname = "SandboxSelect",
  inherit = Component,
  public = list(
    ui = function(inputId, ...) {
      ns <- NS(inputId)

      pickerInput(
        inputId = ns("options"),
        label = "Sandbox",
        choices = "",
        options = list(
          size = 8
        ),
        ...
      )
    },

    server = function(input, output, session, store) {
      values <- reactiveValues()

      observeEvent(c(playground_emitter$value(playground_events$current_scenario),
        playground_emitter$value(playground_events$update_executions),
        playground_emitter$value(playground_events$update_sandboxes),
        store$currentExecution), {

        boxes_id <- NULL

        if (!is.null(store$currentExecution)) {
          sandboxes <- store$currentExecution$get_sandboxes()

          boxes <- lapply(sandboxes$get_boxes(), function(box) box$getName())
          boxes_id <- lapply(sandboxes$get_boxes(), function(box) box$getId())

          if (length(boxes) == 0) {
            store$sandbox <- NULL
            boxes_id <- ""
          } else {
            names(boxes_id) <- unlist(boxes, use.names = FALSE)
            sandbox <- sandboxes$get_box(boxes_id[[1]])
            store$sandbox <- sandbox
          }
        } else {
          store$sandbox <- NULL
          boxes_id <- ""
        }

        updatePickerInput(
          session = session,
          inputId = "options",
          choices = boxes_id
        )
      }, ignoreNULL = FALSE, ignoreInit = TRUE)

      observeEvent(input$options, values$option <- input$options)

      observeEvent(store$currentExecution, {
        req(input$options != "")
        sandboxes <- store$currentExecution$get_sandboxes()
        store$sandbox <- sandboxes$get_box(input$options)
      }, ignoreInit = TRUE)

      observeEvent(store$sandbox, {
        updatePickerInput(
          session = session,
          inputId = "options",
          selected = store$sandbox$getId()
        )
      }, ignoreInit = TRUE)

      return(values)
    }
  )
)