inst/data-raw/generate_package_data.R

In zachmayer/pokeR: Poker hand evaluator

library(pbapply)
######################
# Internal data
######################

handRanks <- readBin(
  'inst/data-raw/HandRanks.dat',
  integer(), endian = "little", n=32488834)

handNames <-  c(
  "high card",
  "one pair",
  "two pairs",
  "three of a kind",
  "straight",
  "flush",
  "full house",
  "four of a kind",
  "straight flush")

cardMap <- c(
  "2c","2d","2h","2s",
  "3c","3d","3h","3s",
  "4c","4d","4h","4s",
  "5c","5d","5h","5s",
  "6c","6d","6h","6s",
  "7c","7d","7h","7s",
  "8c","8d","8h","8s",
  "9c","9d","9h","9s",
  "tc","td","th","ts",
  "jc","jd","jh","js",
  "qc","qd","qh","qs",
  "kc","kd","kh","ks",
  "ac","ad","ah","as")

devtools::use_data(
  handNames,
  handRanks,
  cardMap,
  compress='bzip2',
  overwrite=TRUE,
  internal=TRUE)

######################
# External data
######################