# ui.R
  h.sp <- function(n) 
    pasteR("&nbsp;", n)

#  source("global.r", local=FALSE)

#  ingestAllRDS(getwd())

shinyUI(pageWithSidebar(
 
  headerPanel(HTML(paste0("<H2>", h.sp(7), "FaceBook Marketing Spend & Return</H2><H3><CENTER>(April through September 2013)</CENTER></H3>")), windowTitle="Orchard FB Marketing"),
  

 
  sidebarPanel(
    selectInput( inputId="dataset"
               , label="How would you like to breakdown the data?\n"
               , choices = c(  Overview="fb_agg_date"
                            , Label="fb_agg_date_label"
                            , Campaign="fb_agg_date_campaign"
                            , Age="fb_agg_date_age"
                            , Gender="fb_agg_date_gender"
                          )
               , selected="Campaign"

      ),
    helpText("\n\n"),
    
#    checkboxGroupInput("vals", "Breakdown By:",
#                   c("Campaign" = "CampaignID",
#                     "Age" = "Age",
#                     "Gender" = "Gender")
#      ),
#    helpText("We can look at the data by any of the above categories.",
#      "\nUnSelect them all to view overall totals.",
#      "\nPro-Tip: Don't select all at once."),


    submitButton(text = "Update Graph")
    , helpText("\nSelect your options then click update.\n\n")


    , helpText(pasteR("\n", 6))
    , selectInput('CID', "Get More Info On A Campaign (select ID)",C.DT[, unique(c("-", as.character(CampaignID)))] )


   ),
  mainPanel(
    htmlOutput("GVis")
  , verbatimTextOutput("InspectThese")
  , verbatimTextOutput("CInfo")
  )
))


##