Bibles
library(bibler) library(tidyverse) check <- bibles(language = 'grc', details = T) check <- bibles(language = 'eng',name = 'king james', details = T) check
books
bibleid <- '55212e3cf5d04d49-01' #kjv #bibleid <- '3aefb10641485092-01' req <- books() req
chapters
bookid <- "GEN" ch <- chapters(bookid = 'gen') ch
chapter
bibleid <- '55212e3cf5d04d49-01' #kjv bookid <- "GEN" chapterid <- 'GEN.1' ch <- chapter(chapterid = 'gen.1', includenotes = T, contenttype = 'text', includeversenumbers = F, includetitles = T, debug = F) ch$content
bibleid <- '55212e3cf5d04d49-01' #kjv bookid <- "GEN" chapterid <- 'GEN.1' passid <- "MAT.1.12-mat.2.20" pdf <- passage(bibleid, passid, includenotes = T, contenttype = 'text', includeversespans = F, includeversenumbers = T, includetitles = T, debug = F) pdf
bibleid <- '55212e3cf5d04d49-01' #kjv bookid <- "GEN" chapterid <- 'GEN.1' passid <- "MAT.1.12-mat.2.20" vs <- verses(bibleid, chapterid, debug = T) vs
verse
kjv <- '55212e3cf5d04d49-01' #kjv grc <- '3aefb10641485092-01' #grc bookid <- "GEN" chapterid <- 'GEN.1' verseid <- 'mat.2.11' passid <- "MAT.1.12-mat.2.20" vs <- verse(bibleid, verseid, debug = F, parallels = c(kjv, grc)) vs
kjv <- 'de4e12af7f28f599-02' #kjv bibles(name = 'king') search <- bible_search(kjv, query = 'Jesus\\?said', range = c('mat-jhn'), limit = 180, debug = F) search
kjv <- 'de4e12af7f28f599-02' #kjv bibles(name = 'king') sects <- sections(kjv, 'jhn') search
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.