R/show_dropdown_box.R

In kristian-bak/betting: An Amazing Shiny App

#' Show dropdown box
#' @param ns namespace
#' @param max_stake maximum stake (integer)
#' 
show_dropdown_box <- function(ns, max_stake) {
  
  shinyWidgets::dropdownButton(
    inputId = ns("go_drop_down"),
    circle = TRUE, 
    status = "primary", 
    icon = icon("cog"),
    tagList(
      selectizeInput(
        inputId = ns("select_tournament"), 
        label = "Tournament", 
        choices = "", 
        multiple = TRUE,
        options = list(
          'plugins' = list('remove_button')
        )
      ),
      sliderInput(
        inputId = ns("slide_stake"), 
        label = add_info_circle(
          label = "Stake", 
          placement = "right", 
          content = "Money in DKK placed on a bet"
        ), 
        min = 0, 
        max = max_stake, 
        value = c(0, max_stake), 
        step = 5, 
        dragRange = TRUE
      ),
      selectizeInput(
        inputId = ns("select_game_type"), 
        label = "Bet type", 
        choices = NULL,
        multiple = TRUE,
        options = list(
          'plugins' = list('remove_button')
        )
      ),
      selectizeInput(
        inputId = ns("select_game"), 
        label = "Live betting vs oddset", 
        choices = c("", "Live Betting", "Oddset")
      ),
      selectizeInput(
        inputId = ns("select_country"), 
        label = "Country", 
        choices = NULL,
        multiple = TRUE,
        options = list(
          'plugins' = list('remove_button')
        )
      ),
      selectizeInput(
        inputId = ns("select_bookmaker"), 
        label = "Bookmaker", 
        choices = NULL,
        multiple = TRUE,
        options = list(
          'plugins' = list('remove_button')
        )
      ),
      shinyWidgets::materialSwitch(
        inputId = ns("switch_lings_together"), 
        label = "Group lings together", 
        value = FALSE, 
        status = "primary"
      ),
      shinyWidgets::materialSwitch(
        inputId = ns("switch_dbl_tp_as_lings"), 
        label = "Group double and triple as lings", 
        value = FALSE, 
        status = "primary"
      )
    )
  )
  
}