R/mod_03_playvis.R

In josePliego/final_proj_carolina_kernels: Carolina Kernels Final Project

#' 03_playvis UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_03_playvis_ui <- function(id) {
  ns <- NS(id)
  tagList(
    uiOutput(ns("header")),
    tags$div(
      class = "gif",
      imageOutput(ns("play_plot"))
    ),
    tags$br(),
    tags$div(
      h4("About the Animation"),
      paste(
        "Each special teams event (punt, extra point, field goal, and kickoff) has several distinct outcomes according to the NFL dataset.",
        "One play per outcome has been included for exploration and can be changed via drop-down selection.",
        "The animations are precompiled and embedded as a gifs to reduce load times and improve user experience.",
        "Each point represents a player and the brown triangle is the football.",
        "White horizontal lines denote the hash marks and the yellow vertical bars represent goal posts.",
        "The line numberings are the yard lines with endzones denoted with thick black lines at either end of the field."
      )
    )
  )
}

#' 03_playvis Server Functions
#'
#' @noRd
mod_03_playvis_server <- function(id, r) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns

    gif_list <- list.files(app_sys("app/cache/gifs/"))


    output$header <- renderUI({
      tags$div(
        h2(paste(stringr::str_remove(r$play_type, "s$"), "Dynamic Visualization")),
        fluidRow(
          column(4),
          column(
            4,
            class = "cover",
            align = "center",
            selectInput(
              ns("play"),
              "Choose a play:",
              choices = stringr::str_remove_all(
                gif_list[
                  stringr::str_detect(
                    gif_list, stringr::str_replace_all(r$play_type, " ", "")
                  )
                ],
                ".gif$"
              )
            )
          ),
          column(4)
        )
      )
    })
    observeEvent(input$play, {
      play <- as.character(input$play)
      img_dir <- paste0(app_sys("app/cache/gifs/"), "/", input$play, ".gif")
      output$play_plot <- renderImage(
        {
          list("src" = img_dir)
        },
        deleteFile = FALSE
      )
    })
  })
}

## To be copied in the UI
# mod_03_playvis_ui("03_playvis_ui_1")

## To be copied in the server
# mod_03_playvis_server("03_playvis_ui_1")