You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
1.9 KiB
55 lines
1.9 KiB
|
|
## 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))
|
|
)
|
|
|
|
)
|
|
|
|
|
|
|