# NOT RUN {
(g0 <- fetchUKGame()) ## The game for today (according to GMT)
(g3 <- fetchUKGame(3)) ## game from 3 days ago (according to GMT)
if(require(sudoku)) { ## the original solver
g0a <- as.sudoku(fetchSudokuUK())
identical(g0, g0a) ## should be TRUE
}
g0 %>% solve %>% plot -> sg0 ## spoil the game
# }
Run the code above in your browser using DataLab