In msperlin/adfeR: Data, exercises and Functions for Book "Analise de Dados Financeiros e Economicos com o R"

my_link <- 'https://www.gutenberg.org/ebooks/2264.txt.utf-8'

my_book <- readr::read_lines(my_link)

# solution
full_text <- paste0(my_book, collapse = '\n')
my_sol <- stringr::str_count(full_text, stringr::fixed('King'))

my_answers <- make_random_answers(my_sol)

#check_answers(my_answers)

Question

Junte o vetor de caracteres em my_book para um único valor (texto) em outro objeto chamado full_text usando função paste0(my_book, collapse = '\n'). Utilizando este último e pacote stringr, quantas vezes a palavra 'King' é repetida na totalidade do texto?

exams::answerlist(my_answers, markup = "markdown")

Solution

Meta-information

extype: num exsolution: r my_sol exname: "pride and prejudice" exshuffle: TRUE

msperlin/adfeR documentation built on March 26, 2021, 3:05 a.m.