R/utils_helpers.R

In igemsoftwareadmin/ClusteRsy-Linkoping: ClusteRsy

chooserInput <- function(inputId, leftLabel, rightLabel, leftChoices, rightChoices,
                         size = 10, multiple = FALSE) {
  
  leftChoices <- lapply(leftChoices, tags$option)
  rightChoices <- lapply(rightChoices, tags$option)
  
  if (multiple)
    multiple <- "multiple"
  else
    multiple <- NULL
  
  tagList(
    singleton(tags$head(
      tags$script(src="chooser-binding.js"),
      tags$style(type="text/css",
                 HTML(".chooser-container { display: inline-block; }")
      )
    )),
    div(id=inputId, class="chooser",  style="width:100%;",
        div(class="chooser-container chooser-left-container", style="width:42%",
            tags$select(class="left", size=size, multiple=multiple, leftChoices,
                        style = "color: black; width: 100%;background-color: #ecf0f1; border-radius: 8px;")
        ),
        div(class="chooser-container chooser-center-container", style = "position: relative; bottom: 68px; width: 13%; font-size: 10px; text-align:center;",
            icon("arrow-circle-o-right", "right-arrow fa-3x"),
            tags$br(),
            icon("arrow-circle-o-left", "left-arrow fa-3x")
        ),
        div(class="chooser-container chooser-right-container", style="width:42%",
            tags$select(class="right", size=size, multiple=multiple, rightChoices,
                        style = "color: black; width: 100%;background-color: #ecf0f1; border-radius: 8px;")
        )
    )
  )
}