# NOT RUN {
# Automatic use of languages and scores
options("lares.lang" = "es")
scrabble_words(tiles = "holasa",
free = 1,
force_start = "",
force_end = "",
force_str = "_o_a",
force_n = 6,
force_max = 0,
quiet = FALSE)
# Custom scores table and manual language input
cu_scores <- data.frame(
tiles = c(tolower(LETTERS)[1:14],"_",tolower(LETTERS)[15:length(LETTERS)]),
scores = c(1,1,1,1,1,1,1,1,1,1,1,1,3,1,8,1,3,5,1,1,1,2,4,10,10,5,10))
scrabble_words(tiles = "holase",
language = "es",
scores = cu_scores,
free = 1,
force_start = "_o_a")
# Words considered for a language (you can custom it too!)
es_words <- scrabble_dictionary("es")
# }
Run the code above in your browser using DataLab