R/project_hours_ui.R

In JARS3N/LLP: LLP

project_hours_ui<-function(){
library(shiny)
library(DT)
shinyUI(fluidPage(
titlePanel("Applied Engineering Weekly Breakdown"),

    sidebarLayout(
        # sidebarPanel(
            dateInput('dates','Select Week',daysofweekdisabled=c(0,6)),
             
        # ),

        mainPanel(
            textOutput("weekchosen"),
            DTOutput('testDT')
        )
    )
))
}