R/weekly_ae_ui.R

Defines functions weekly_ae_ui

weekly_ae_ui<-function(){
library(shiny)
library(DT)
shinyUI(fluidPage(
    titlePanel("Applied Engineering Weekly Breakdown"),
        mainPanel(
            p('%Time per Project'),
            h4(textOutput("weekchosen")),
            dateInput('dates','dates'),
            DTOutput('testDT') 
        )
    
))
}
JARS3N/LLP documentation built on Jan. 24, 2023, 12:12 a.m.