In rmsharp/wordPuzzle: Word Search Puzzles in R

knitr::opts_chunk$set(echo = TRUE)

Introduction

Interactive Use

filename_1 <- "../tests/books_of_bible.txt"
puzzle_list_1 <- make_puzzle(filename_1, upper_case = TRUE)
print_puzzle(puzzle_list_1)
print_words(puzzle_list_1)
print_key(puzzle_list_1)

filename_2 <- "../inst/extdata/word_lists/word_lists/ruth_1_4.txt"
puzzle_list_2 <- make_puzzle(filename_2, upper_case = TRUE)
print_puzzle(puzzle_list_2)
print_words(puzzle_list_2)
print_key(puzzle_list_2)

words <- get_words("tests/books_of_bible.txt")
text <- get_text_string("data/find the book puzzle.txt")
found_words <- found_forward_and_backward_words(words, text)
found_words <- found_words[order(found_words$starts_at), ]