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.
72 lines
1.8 KiB
72 lines
1.8 KiB
|
|
sdbar<-dashboardSidebar(
|
|
collapsed = FALSE,
|
|
sidebarMenuOutput("menu")#,
|
|
# p(style = "text-align: center;", "An Initiative by"),
|
|
# lanubialogo,
|
|
# p(style = "text-align: center;", "&"),
|
|
# jadslogo,
|
|
# p(style = "text-align: center;", "For"),
|
|
# clientlogo,
|
|
# actionButton("submit", "Submit All")
|
|
)
|
|
|
|
|
|
uidet <- shinydashboardPlus::dashboardPage(
|
|
title = "Clotho",
|
|
skin = "black-light",
|
|
header = shinydashboardPlus::dashboardHeader(title = "Clotho"),
|
|
sidebar = sdbar,
|
|
body = dashboardBody(tabItems(
|
|
tabItem(
|
|
tabName = "Survey",
|
|
shinydashboardPlus::box(
|
|
width = 12,
|
|
solidHeader = T,
|
|
title = "Instructions",
|
|
fluidRow(column(
|
|
width = 10,
|
|
h5(
|
|
"Please double click the cells and select the desired value. Once all the tabs are done, please click the submit button."
|
|
)
|
|
),
|
|
column(
|
|
width = 2,
|
|
actionButton("submitdata", "Submit All")
|
|
))
|
|
|
|
),
|
|
|
|
shinydashboardPlus::box(title = "Survey",
|
|
width = 12,
|
|
uiOutput("grouptable")
|
|
)
|
|
),
|
|
tabItem(
|
|
tabName = "Personal",
|
|
shinydashboardPlus::box(
|
|
width = 6,
|
|
title = "Other info",
|
|
sel.depp,
|
|
sel.func,
|
|
sel.gender,
|
|
sel.age,
|
|
timeondata,
|
|
footer = actionButton("submitinfo", "Submit")
|
|
)
|
|
|
|
),
|
|
tabItem(tabName = "Dashboard"),
|
|
tabItem(
|
|
tabName = "Input"
|
|
)
|
|
)),
|
|
footer = shinydashboardPlus::dashboardFooter(left = "LaNubia Consulting", right = "Built for Kraft Heinz R & D, Netherlands"),
|
|
controlbar = dashboardControlbar(collapsed = TRUE, tagList("Change Skin",
|
|
skinSelector()))
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|
|