R/wordfeud_tileinfo.R

In vdweijer/games: Functions for word games.

wordfeud_tileinfo=function(tile,language="dutch"){
   stopifnot(length(tile)==1)
   
   cat(sprintf("%4s%6s%6s%9s\n","Tile","Value","Count","Language"))

   if(tile==""){
      for (i in 1:length(wordfeud_tiles[[tolower(language)]][["tiles"]])){
         cat(sprintf("%4s%6s%6s%9s\n",
               wordfeud_tiles[[tolower(language)]][["tiles"]][i],
               wordfeud_tiles[[tolower(language)]][["values"]][i],
               wordfeud_tiles[[tolower(language)]][["counts"]][i],
               language))}}

      else
      
         {i=which(wordfeud_tiles[[tolower(language)]][["tiles"]]==tile)
         cat(sprintf("%4s%6s%6s%9s\n",
               wordfeud_tiles[[tolower(language)]][["tiles"]][i],
               wordfeud_tiles[[tolower(language)]][["values"]][i],
               wordfeud_tiles[[tolower(language)]][["counts"]][i],
               language))}
}