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()))
)