R/project_hours_ui.R

Defines functions project_hours_ui

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')
        )
    )
))
}
JARS3N/LiveLongAndProsper documentation built on June 21, 2020, 12:49 p.m.