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.
70 lines
1.4 KiB
70 lines
1.4 KiB
|
|
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")
|
|
)
|