Exercicios do Livro em pdf

[This article was first published on R | msperlin, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

A terceira edição do livro Análise de Dados Financeiros e Econômicos contém mais de 100 exercícios de final de capítulo, com todas soluções disponíveis na página do livro. Alternativamente, professores e instrutores podem compilar arquivos pdf dos exercícios para seus alunos com o pacote adfeR.

O primeiro passo é instalar o pacote via devtools e também o exams:

devtools::install_github('msperlin/adfeR')

install.packages('exams')

Como funciona?

Todos exercícios do livro estão no formato do pacote exams. Cada exercício é um arquivo .Rmd contendo código, narrativa do exercício e a solução. Os arquivos em si podem ser encontrados no diretório de instalação do próprio pacote:

eoc_dir <- adfeR::get_EOC_dir()

eoc_chapters <- fs::dir_ls(eoc_dir)
basename(eoc_chapters)
##  [1] "Cap01-Introdução"                   "Cap02-Operações-Básicas"           
##  [3] "Cap03-Scripts-Pesquisa"             "Cap04-Import-Local"                
##  [5] "Cap05-Import-Internet"              "Cap06-Objetos-Armazenamento"       
##  [7] "Cap07-Objetos-Básicos"              "Cap08-Programação"                 
##  [9] "Cap09-Limpeza-e-estruturação-dados" "Cap10-Figuras"                     
## [11] "Cap11-Modelagem"                    "Cap12-Reportando"                  
## [13] "Cap13-Otimização"

Cada um dos diretórios acima possui diversos exercícios. Veja o caso do capítulo 01:

basename(fs::dir_ls(eoc_chapters[1]))
##  [1] "adfeR_Cap-01_01_SPLUS.Rmd"            
##  [2] "adfeR_Cap-01_02_Autores-R.Rmd"        
##  [3] "adfeR_Cap-01_03_diferencial-R.Rmd"    
##  [4] "adfeR_Cap-01_04_nome-R.Rmd"           
##  [5] "adfeR_Cap-01_05_sobre-R.Rmd"          
##  [6] "adfeR_Cap-01_06_Tecnologias-R.Rmd"    
##  [7] "adfeR_Cap-01_07_rtools.Rmd"           
##  [8] "adfeR_Cap-01_08_Grupos.Rmd"           
##  [9] "adfeR_Cap-01_09_RBloggers.Rmd"        
## [10] "adfeR_Cap-01_10_Infraestrutura-TI.Rmd"

Exportando para pdf

Para compilar para pdf os exercícios basta selecionar:

  • nome dos estudantes
  • id dos estudantes
  • capítulos para incluir

e usar o código abaixo:

library(adfeR)
## Loading required package: dplyr
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
names_students <- c('Marcelo', 'Ricardo', 'Tarcizio')
ids_students <- 1:length(names_students) # probably id card?
chapters <- 1:3
dir_output <- file.path(tempdir(), 'ExamsFiles')



l_exams <- build_exercises(students_names = names_students, 
                           students_ids = ids_students, 
                           chapters_to_include = chapters,
                           dir_out = dir_output)
## Building exercise for Marcelo
##  Adding content to tex
##  Building pdf
## Loading required namespace: tinytex
##  Copying final pdf
## Building exercise for Ricardo
##  Adding content to tex
##  Building pdf
##  Copying final pdf
## Building exercise for Tarcizio
##  Adding content to tex
##  Building pdf
##  Copying final pdf
## All exam files are available at folder "/tmp/Rtmp7ibAE9/ExamsFiles".

Todos os arquivos pdfs estarão disponíveis na pasta dir_output:

fs::dir_ls(dir_output)
## /tmp/Rtmp7ibAE9/ExamsFiles/Exercicios Teste_Ver 01_Marcelo.pdf
## /tmp/Rtmp7ibAE9/ExamsFiles/Exercicios Teste_Ver 02_Ricardo.pdf
## /tmp/Rtmp7ibAE9/ExamsFiles/Exercicios Teste_Ver 03_Tarcizio.pdf

O resultado final será conforme figura abaixo:

Exportando para o Moodle

Para quem usa o Moodle ou outra plataforma de e-learning (Blackboard, Canvas, etc), a exportação para estes formatos é bem simples, basta indicar os arquivos de exercícios e usar as funções do pacote exams:

require(adfeR)
my_eoc_dir <- adfeR::get_EOC_dir()

available_chapters <- fs::dir_ls(my_eoc_dir)
exercise_files <- fs::dir_ls(available_chapters[1])
dir_output <- file.path(tempdir(), 'moodle-test')

exams::exams2moodle(file = exercise_files, 
                    name = 'TestingMoodle', 
                    dir = dir_output)

fs::dir_ls(dir_output)
## /tmp/Rtmp7ibAE9/moodle-test/TestingMoodle.xml

Este arquivo .xml conterá todos os exercícios selecionados e pode ser facilmente importado no Moodle para ser aplicado aos alunos.

To leave a comment for the author, please follow the link and comment on their blog: R | msperlin.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.