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')
)
))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.