## UI components


# Filters

# Sales Territory Options

# Function to convert the vector into list

vector.to.list<- function(x) {
  list(
    key = x,
    text = x
  )
}


# territory.options<- lapply(
#   c("NL_01 - NL_General" ,"Netherlands",
#     "AT_07 - Burgenland" ,"NZ_South Island",
#     "NZ_North Island" ,"AT_02 - Niederösterreich",
#     "AT_05 - Salzburg" ,"CN_05 - Sales Commercial",
#     "AT_09 - Kärnten" ,"DE_BE - DE Belgium" ),
#   vector.to.list
# )

territory.options<- c("NL_01 - NL_General" ,"Netherlands",
                      "AT_07 - Burgenland" ,"NZ_South Island",
                      "NZ_North Island" ,"AT_02 - Niederösterreich",
                      "AT_05 - Salzburg" ,"CN_05 - Sales Commercial",
                      "AT_09 - Kärnten" ,"DE_BE - DE Belgium" )
employee.options<- c(
  "Meerten Siertsema", "Hakan Küçükoğlu", "Mark Lammertink",
  "Leviat 2",  "Katja Rustenhoven", "Gerko Gortel, van",
  "Rutger Game", "Bram Aalbers", "Leviat 3", "Rigo Selassa"
  )

filters.sidebar <- tagList(
  dateInput("fromDate", value = as.Date('2023/01/01'), label = "From date"),
  dateInput("toDate", value = today(), label = "To date"),
  actionButton("Extract","(Re-)Extract", icon = icon("download"))
)

filters.panel <- tagList(
  fluidRow(
    column(width = 6, selectizeInput(inputId="Territory", label= "Territory",choices= territory.options, selected=territory.options[1], multiple = TRUE),
           selectizeInput(inputId="OppType", label= "Opportunity Type",choices= c("Opportunity", "Project", "Subproject"), selected=c("Opportunity", "Project", "Subproject"), multiple = TRUE)),
    column(width = 6, selectizeInput(inputId="Employee", label= "Employee",choices= employee.options, selected=employee.options[1], multiple = TRUE),
           selectizeInput(inputId="Status", label= "Status",choices= c("Open", "In Process", "Won"), selected=c("Open", "In Process", "Won"), multiple = TRUE))
  )
  
)