ui.R

#### Shiny UI ####

shinyUI(
  navbarPage(title = "tRakt", inverse = TRUE, theme = shinytheme("cosmo"),
    #### Main view ####
    tabPanel("Main", icon = icon("tasks"),
     tags$head(
       tags$meta(name = "twitter:card", content = "summary"),
       tags$meta(name = "twitter:site", content="@jemus42"),
       tags$meta(name = "twitter:title", content="tRakt"),
       tags$meta(name = "twitter:description", content="Graph trakt.tv shows"),
       tags$meta(name = "twitter:creator", content="@jemus42"),
       tags$meta(name = "twitter:image:src", content=""),
       tags$meta(name = "twitter:domain", content="https://trakt.jemu.name"),
       tags$meta(name = "twitter:app:name:iphone", content=""),
       tags$meta(name = "twitter:app:name:ipad", content=""),
       tags$meta(name = "twitter:app:name:googleplay", content=""),
       tags$meta(name = "twitter:app:url:iphone", content=""),
       tags$meta(name = "twitter:app:url:ipad", content=""),
       tags$meta(name = "twitter:app:url:googleplay", content=""),
       tags$meta(name = "twitter:app:id:iphone", content=""),
       tags$meta(name = "twitter:app:id:ipad", content=""),
       tags$meta(name = "twitter:app:id:googleplay", content=""),
       tags$meta(name="google-site-verification", content="fbD3_htmdCUtmrjbI1dAZbsS0sN-T10_U3xAN7W791Y"),
       tags$script(HTML(jscode)),
       includeHTML("html/piwik.html")
     ),
      
      #### Episode information ####
      ## Show this when the actionButton was not clicked yet, marking the 'inactive' state
      conditionalPanel(condition = "input.isActive == false",
        wellPanel(includeMarkdown("text/intro.md"))
      ),
      ## Show this only when the actionButton was clicked, marking the 'active' state
      conditionalPanel(condition = "input.isActive && output.show_name != ''",
        wellPanel(
          h2(htmlOutput("show_name")),
          fluidRow(
            column(2, htmlOutput("show_banner", inline = TRUE)),
            column(10, 
              htmlOutput("show_overview"), 
              htmlOutput("show_links"), br(),
              htmlOutput("show_ratings")
            )
          )
        ),
        hr(),
        tabsetPanel(id = "mainPanel", selected = "tab_plot_ggvis",
          tabPanel(title = "Plot", value = "tab_plot_ggvis", icon = icon("bar-chart-o"),
                   ggvisOutput(plot_id = "ggvis")
          ),
          tabPanel(title = "Episodes", value = "tab_data_episodes", icon = icon("table"),
                   DT::dataTableOutput(outputId = "table_episodes")
          ),
          tabPanel(title = "Seasons", value = "tab_data_seasons", icon = icon("table"),
                   DT::dataTableOutput(outputId = "table_seasons")
          )
        )
      ),
      
      hr(),
      
      #### Control panel ####
      wellPanel(fluidRow(
        column(4,
          h3(icon("search"), "Show Selection"),
          tagAppendAttributes(
            textInput(inputId = "show_query", label = "Search a show on trakt.tv", value = ""),
            `data-proxy-click` = "get_show"
          ),  
          br(),
          tagAppendAttributes(
          selectizeInput(inputId = "shows_cached", label = "Or select a cached show", 
                         choices = "Loading cache…", selected = NULL),
          `data-proxy-click` = "get_show"),
          actionButton(inputId = "get_show", label = "PLOTERIZZLE", icon = icon("play"))
        ),
        column(4, h3(icon("cogs"), "Plot Options"),
          selectInput(inputId = "btn_scale_x_variable", label = "Select timeline format:",
                      choices = btn.scale.x.choices, selected = "epnum"),
          selectInput(inputId = "btn_scale_y_variable", label = "Select target variable:",
                      choices = btn.scale.y.choices, selected = "rating")
        ),
        column(4, h3(icon("cogs"), "Display Options"),
          conditionalPanel(condition = "input.btn_scale_y_variable != 'rating' ",
            checkboxInput(inputId = "btn_scale_y_zero", label = "Start y axis at zero",
                          value = FALSE)
          ),
          conditionalPanel(condition = "input.btn_scale_y_variable == 'rating' ",
                           checkboxInput(inputId = "btn_scale_y_range", label = "Scale Ratings 0 - 100%",
                                         value = FALSE)
          ), br(),
          checkboxGroupInput(inputId = "btn_trendlines", label = "Trendlines", inline = T,
                             choices = c("Show", "Season"), selected = NULL)
        )
      )),
      hr(),
     fluidRow(
       column(6,
              includeMarkdown("text/footer.md"))
     ),
      # Clumsiest way of hiding a debug input element ever
      conditionalPanel(condition = "false", 
                       checkboxInput(inputId = "debug", label = ".", value = F),
                       checkboxInput(inputId = "isActive", label = ".", value = F)
      ),
      conditionalPanel(condition = "input.debug",
        plotOutput(outputId = "usage_stats", width = "100%")
      )
    ),
    tabPanel(title = "About", icon = icon("question-circle"),
      fixedPage(
        column(6, includeMarkdown("README.md")),
        column(6, includeMarkdown("text/about.md"))
      )
    )
  )
)