Compilando Exercícios do Livro para pdf | html | Moodle | Blackboard

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-Introducao"                   "Cap02-Operacoes-Basicas"           
##  [3] "Cap03-Scripts-Pesquisa"             "Cap04-Import-Local"                
##  [5] "Cap05-Import-Internet"              "Cap06-Objetos-Armazenamento"       
##  [7] "Cap07-Objetos-Basicos"              "Cap08-Programacao"                 
##  [9] "Cap09-Limpeza-e-estruturacao-dados" "Cap10-Figuras"                     
## [11] "Cap11-Modelagem"                    "Cap12-Reportando"                  
## [13] "Cap13-Otimizacao"

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 # chapters from 1 to 13
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/RtmpboHyLI/ExamsFiles".

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

fs::dir_ls(dir_output)

## /tmp/RtmpboHyLI/ExamsFiles/Exercicios Teste_Ver 01_Marcelo.pdf
## /tmp/RtmpboHyLI/ExamsFiles/Exercicios Teste_Ver 02_Ricardo.pdf
## /tmp/RtmpboHyLI/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/RtmpboHyLI/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.