bible-database.R

# import libraries
library(scriptuRs)
library(tidyverse)

# get scripture
bible = scriptuRs::kjv_bible()

# roll up by chapter
bible_chapters = bible %>% 
  mutate(verse = paste(verse_number, '', text, '\n\n')) %>%
  group_by(volume_id, volume_long_title, book_title, book_id, chapter_number, chapter_id) %>% 
  summarize(verses = str_c(verse, collapse = "")) %>%
  arrange(volume_id, book_id, chapter_id) %>%
  select(volume_id, volume_long_title, book_title, book_id, chapter_number, chapter_id, verses)

# roll up by book
bible_books = bible_chapters %>% 
  mutate(chapter = paste('Chapter ', chapter_number, '\n', verses, sep = '')) %>%
  group_by(volume_id, volume_long_title, book_title, book_id) %>% 
  summarize(chapters = str_c(chapter, collapse = "")) %>%
  arrange(volume_id, book_id)

# export
write_csv(bible, 'kjv-bible.csv')
write_csv(bible_chapters, 'bible_chapters_v3.csv')
write_csv(bible_books, 'bible_books.csv')

bible_chapters %>% group_by(book_title) %>% count(sort = T)