df <- NULL

questions <- read.csv("./data/questions.csv")
use_cases <- read.csv("./data/use_cases.csv")

dsn_database <- "priority"
dsn_hostname <- "priority-lanubia.postgres.database.azure.com"
dsn_port <- "5432"
dsn_uid <- "lanubia"
dsn_pwd <- "kjHuye98837*&38hjksmk((7hksakjd0nk"

connec <- dbConnect(
  RPostgres::Postgres(),
  dbname = dsn_database,
  host = dsn_hostname,
  port = dsn_port,
  user = dsn_uid,
  password = dsn_pwd
)

db.tables <- dbListTables(connec)

db.disc<-function(){
  dbDisconnect(connec)
}

q_dfs <- function(dimension) {
  questions |>
    filter(segment == dimension)
}

question.dfs<-lapply(unique(questions$segment), q_dfs)

no.of.dims<-length(question.dfs)


sel.depp<-selectizeInput(
  "deptt",
  "Business Area",
  choices = c(
    "R&D",
    "Supply Chain",
    "Marketing",
    "Sales",
    "Finance",
    "IT",
    "HR",
    "Other"
  )
)
sel.func<-selectizeInput(
  "func",
  "Function Level",
  choices = c("Board", "Director",
              "Manager", "Expert", "Staff", "Other")
)

sel.gender<- selectizeInput("gender", "Gender", choices =
                              c("Male", "Female", "Other"))
sel.age<-selectizeInput(
  "age",
  "Age",
  choices = c("18-24", "25-30", "31-40", "41-50", "51-60", "60+")
)
timeondata<-selectizeInput(
  "timeondata",
  "How much time do you spend on average per day working with data in your current role?",
  choices = c("About 1 hour", "About 2 hours", "Most of the time")
)