ui.R

library(shinyjs)
library(shinyAce)
library(shiny)
library(ggplot2)
library(googlesheets)
library(dplyr)
library(purrr)
library(reshape2)


shinyUI(
  tagList(
    useShinyjs(),
    includeCSS(file.path("css", "normalize.css")),
    includeCSS(file.path("css", "skeleton.css")),

    div(
      id = "loading-content",
      h2("Loading...")
    ),

    hidden(
      div(
        id = "app-content",
  navbarPage(div(img(
    src = "Easel.svg",
    height = 50,
    style = "margin:-15px 0"
  )), windowTitle = "Easel: Supporting Educational Data Visualization",


   tabPanel("Instructions",
            mainPanel(includeMarkdown(file.path("data", "instructions.md"))), icon = icon("map-o")),
   tabPanel("Easel",

      sidebarLayout(
        sidebarPanel(id = "sidebar", width = 4,
                     #textOutput("debug"),
                     selectInput("level_one",
                                 "Which of these scenarios better suits your needs?",
                                 list("", "I have a general question in mind that I would like help answering with a visualization" = "G1", "I have data and would like to see options for visualization" = "G2")),
                     uiOutput("level_two"),
                     uiOutput("level_three"),
                     uiOutput("level_four"),
                     uiOutput("level_five"),
                     uiOutput("level_six"),
                     uiOutput("level_seven"),
                     actionButton("undo", "Undo Last Selection", icon = icon("undo")),
                     actionButton("reset", "Reset All Selections", icon = icon("refresh"))
        ),



        mainPanel(tabsetPanel(id = "outputs",
          tabPanel("Plot", list(plotOutput("chart"), uiOutput("desc"))),
          tabPanel("Code", htmlOutput("code_output")),
          tabPanel("Data", DT::dataTableOutput("data"))
        )
        )
      ), icon = icon("paint-brush")
    ),
  tabPanel("Selection Process", includeMarkdown(file.path("data", "selection.md")), icon = icon("clipboard"))


)
    )
  )
))