Nothing
library(testthat)
library(ScrabbleScore)
#most of this is tested through sws, just putting this here for future issues
test_that("right number of points to subtract is returned by impossible points",{
expect_equal(impossible.points(strsplit("z","")),0)
expect_equal(impossible.points(strsplit("zzz","")),20)
expect_equal(impossible.points(strsplit("zzzz","")),30)
})
test_that("right number of points to subtract is returned by impossible points for vectors",{
expect_equal(impossible.points(c(strsplit("z",""),strsplit("zzz",""),(strsplit("zzzz","")))),c(0,20,30))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.