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
######################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.