R/app_ui.R

In joeheywood/tnsinp: Tennis Input

#' The application User-Interface
#' 
#' @param request Internal parameter for `{shiny}`. 
#'     DO NOT REMOVE.
#' @import shiny
#' @import shinyjs
#' @import fullPage

options <- list(
  sectionsColor = c(
    "#30a0ce",
    "#7f966a",
    "#7f966a",
    "#7f8e49"
  )
)

app_ui <- function(request) {
  tagList(
    # Leave this function for adding external resources
    golem_add_external_resources(),
    shinyjs::useShinyjs(),
    # List the first level UI elements here 
    fullPage(
      center = TRUE,
      opts = options,
      menu = c(
        "Start" = "intro",
        "Video" = "vid",
        "Slides" = "slides",
        "Grid" = "grid"
      ),
      fullSection(
        menu = "intro",
        mod_setup_ui("setup_ui_1"),
        fullSlide(
          h1("Slide 3") 
        )
      ),
      fullSection(
        menu = "vid",
        mod_vidpage_ui("vidpage_ui_1"),
        mod_court_ui("court_ui_1"),
        mod_shot_ui("shot_ui_1"),
        mod_point_ui("point_ui_1"),
        mod_match_ui("match_ui_1"),
        mod_drop_interface_ui("drop_interface_ui_1"),
        mod_courtview_ui("courtview_ui_1")
      ),
      fullSection(
        menu = "slides",
        fullSlide(
          mod_edit_meta_ui("edit_meta_ui_1")
        ),
        fullSlide(
          h1("Slide 2")
        )
      ),
      fullSection(
        menu = "grid",
        fullContainer(
          h1("Grid System"),
          fullRow(
            fullColumn(
              h2("Use Columns")
            ),
            fullColumn(
              plotOutput("plot1")
            )
          ),
          p("from Miligram*")
        )
      )
    )
  )
}

#' Add external Resources to the Application
#' 
#' This function is internally used to add external 
#' resources inside the Shiny application. 
#' 
#' @import shiny
#' @importFrom golem add_resource_path activate_js favicon bundle_resources
#' @noRd
golem_add_external_resources <- function(){
  
  add_resource_path(
    'www', app_sys('app/www')
  )
 
  tags$head(
    favicon(),
    bundle_resources(
      path = app_sys('app/www'),
      app_title = 'tnsinp'
    )
    # Add here other external resources
    # for example, you can add shinyalert::useShinyalert() 
  )
}