R/2.1_player_UIs.R

In AFThielmann/JaipuR: Play the Jaipur card game in R

### --- Sub UI for Player 1 --- ###

#' @keywords internal
player1_UI <- function(id) {
  # define Namespace
  ns <- NS(id)
  tagList(
    # Create market and hand output
    uiOutput(ns("player_1")),

    # Add spaces
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),

    # Actionbutton to take cards
    actionButton(ns("take_player_1"),
                 label = "TAKE"),

    # Actionbutton to sell cards
    actionButton(ns("sell_player_1"),
                 label = "SELL"),

    # Actionbutton to swap
    actionButton(ns("swap_player_1"),
                 label = "SWAP")
  )

}


### --- Sub UI for Player 2 (unique inputID's) --- ###

#' @keywords internal player2_UI
player2_UI <- function(id) {
  # define Namespace
  ns <- NS(id)
  tagList(
    # Create market and hand output
    uiOutput(ns("player_2")),

    # Add spaces
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),

    # Actionbutton to take cards
    actionButton(ns("take_player_2"),
                 label = "TAKE"),

    # Actionbutton to sell cards
    actionButton(ns("sell_player_2"),
                 label = "SELL"),

    # Actionbutton to swap
    actionButton(ns("swap_player_2"),
                 label = "SWAP")
  )

}