R/mod_filtre_joueur.R

In GabrielleDevaux/fifa19shinyapp: Shiny app demo on fifa2019 kaggle dataset

#' mod_filtre_joueur_ui and mod_filtre_joueur_server
#'
#' @param id shiny id
#' @param fifa2019 dataset fifa2019
#'
#' @import shiny
#' @import shinydashboard

mod_filtre_joueur_ui <- function(id, fifa2019) {
  ns <- NS(id)
  tagList(
    fluidRow(
      column(
        width = 2,
        offset = 5,
        align = "center",
        selectInput(
          inputId = ns("choix_joueur"),
          label = "Select a player",
          choices = setNames(fifa2019$ID, fifa2019$Name)
        )
      )
    )

    # shinydashboard::box(
    #   title = "Player selection",
    #   collapsible = TRUE,
    #   width = 12,
    #   fluidRow(
    #     column(
    #       width = 3,
    #       selectInput(inputId = ns("choix_joueur"),
    #                   label = "Select a player",
    #                   #choices = fifa2019$ID,
    #                   choices = setNames(fifa2019$ID, fifa2019$Name))
    #     )
    #   )
    #
    # )
  )
}


#' mod_filtre_joueur_server
#'
#' @param input internal
#' @param output internal
#' @param session internal
#'

mod_filtre_joueur_server <- function(input, output, session) {
  return(input)
}