R/display.R

In dfcorbin/pokersim:

display <- function(players,turn,pot,bets){
  n <- length(players)
  names(bets) <- paste("Player",1:n)
  cat(sep="\n",
    paste("PLAYER",turn,"TO ACT"),
    paste("Pot:",pot),
    paste("Chips:",players[[turn]]@chips)
  )
  cat("Hand: ")
  cat(names(players[[turn]]@hand),sep=", ")
  cat("\n")
  cat("Community: ")
  cat(names(players[[turn]]@community),sep=", ")
  cat("\n")
  print(bets)
}