gkchestertonr: G.K. Chesterton's Complete Novels

## This is the script used to download the Project Gutenberg text files 

library(gutenbergr)

get_book <- function(gutenber_ebook_num, title_line, b1=NULL, b2=NULL, tail_blank = 0) {
        
        book <- gutenberg_download(gutenber_ebook_num)[['text']]
        if(!is.null(b1) & !is.null(b2)){
                return(c(book[title_line:b1], book[b2:length(book) - tail_blank]))                
        } else {
                return(book[title_line:length(book) - tail_blank])
        }
        
}


orthodoxy            <- get_book(gutenber_ebook_num = 130, title_line = 6)
themanwhowasthursday <- get_book(gutenber_ebook_num = 1695, title_line = 1)
heretics             <- get_book(gutenber_ebook_num = 470, title_line = 1, b1 = 11, b2 = 84)
themanwhoknewtoomuch <- get_book(gutenber_ebook_num = 1720, title_line = 8)

thenapoleonofnothinghill <- get_book(gutenber_ebook_num = 20058, title_line = 13, b1=20, b2=39)
manalive                 <- get_book(gutenber_ebook_num = 1718, title_line = 10, b1=12, b2=48)
eugenicsandotherevils    <- get_book(25308, title_line = 19, b1=20, b2=39)
thenewjerusalem          <- get_book(13468, 1, b1=6, b2=12)

whatswrongwiththeworld   <- get_book(gutenber_ebook_num = 1717, title_line = 1)
theballadofthewhitehorse <- get_book(gutenber_ebook_num = 1719, title_line = 1)
ashorthistoryofengland   <- get_book(gutenber_ebook_num = 20897, title_line = 1, b1=6, b2=24)

devtools::use_data(themanwhowasthursday, overwrite = TRUE)
devtools::use_data(orthodoxy, overwrite = TRUE)
devtools::use_data(whatswrongwiththeworld, overwrite = TRUE)
devtools::use_data(theballadofthewhitehorse, overwrite = TRUE)
devtools::use_data(heretics, overwrite = TRUE)
devtools::use_data(ashorthistoryofengland, overwrite = TRUE)
devtools::use_data(thenapoleonofnothinghill, overwrite = TRUE)
devtools::use_data(manalive, overwrite = TRUE)
devtools::use_data(eugenicsandotherevils, overwrite = TRUE)
devtools::use_data(thenewjerusalem, overwrite = TRUE)
devtools::use_data(themanwhoknewtoomuch, overwrite = TRUE)

## Finished!

## Making a hex sticker for gkchestertonr

hexSticker::sticker("https://upload.wikimedia.org/wikipedia/commons/thumb/9/93/GK_Chesterson_signature.svg/585px-GK_Chesterson_signature.svg.png", 
                    package="", 
                    spotlight = FALSE,
                    h_size = 1.5,
                    h_color = "black",
                    h_fill = "#009933",
                    p_size=0.5, p_y = 0.1,
                    p_family = "RobotoCondensed-Regular",
                    s_x=1, 
                    s_y=0.95, 
                    s_width=0.96,
                    url="gkchestertonr",
                    u_size = 2,
                    u_y = 0.1,
                    u_color = "black",
                    filename="tools/gkchestertonr.png")

gk <- magick::image_read("tools/gkchestertonr.png")
image_scale(gk, "150") %>%
        image_write(path = "tools/logo.png", format = "png")