BancoFisica: BancoFisica

# executar no RStudio

## load package
library(tools)
library(exams)

###################Unidades e conversão######################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/unidadeseconv", pattern = ".rnw", ignore.case=TRUE)
ano <- 12020
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 80, rule="none", 
             schoice = list(shuffle = TRUE), 
             converter = "pandoc-mathjax",
             name = paste0("unidadeseconv-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/unidadeseconv")

########Notacao cientifica e ordem de grandeza##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/nc_og", pattern = ".rnw", ignore.case=TRUE)
ano <- 12020
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 80, rule="none", 
             schoice = list(shuffle = TRUE), 
             converter = "pandoc-mathjax",
             name = paste0("nc_og-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/nc_og")

############Cinematica introducao ####################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/cinematica/intro", pattern = ".rnw", ignore.case=TRUE)
ano <- 12020
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 80, rule="none", schoice = list(shuffle = TRUE), name = paste0("cinematica_intro",ano),
             converter = "pandoc-mathjax",
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/cinematica/intro")

################## MU ####################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/cinematica/MU", pattern = ".rnw", ignore.case=TRUE)
ano <- 12019
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 50, rule="none", schoice = list(shuffle = TRUE), name = paste0("MU-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/cinematica/MU")

############### aceleracao ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/acel", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", 
             schoice = list(shuffle = TRUE), 
             converter = "pandoc-mathjax",
             name = paste0("acel-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/acel")

############### calorimetria ###############
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/calorimetria", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", 
             schoice = list(shuffle = TRUE), 
             name = paste0("calorimetria-",ano),
             encoding = "UTF-8",
             converter = "pandoc-mathjax",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/calorimetria")

############### calortemp ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/calortemp", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", 
             schoice = list(shuffle = TRUE), 
             name = paste0("calortemp-",ano),
             encoding = "UTF-8",
             converter = "pandoc-mathjax",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/calortemp")

############### dilatacao #################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/dilatterm", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", 
             schoice = list(shuffle = TRUE), 
             name = paste0("dilatterm-",ano),
             encoding = "UTF-8",
             converter = "pandoc-mathjax",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/dilatterm")


############### eletricidade #################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/eletricidade", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", 
             schoice = list(shuffle = TRUE), 
             name = paste0("eletricidade-",ano),
             encoding = "UTF-8",
             converter = "pandoc-mathjax",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/eletricidade")

############### eletromagnetismo #################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/eletromagnetismo/eletrostática/", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", 
             schoice = list(shuffle = TRUE), 
             name = paste0("eletromagnetismo-",ano),
             encoding = "UTF-8",
             converter = "pandoc-mathjax",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/eletromagnetismo/eletrostática/")

############### eletrostatica ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/eletrostatica", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", 
             schoice = list(shuffle = TRUE), 
             name = paste0("eletrostatica-",ano),
             encoding = "UTF-8",
             converter = "pandoc-mathjax",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/eletrostatica")

############### energia e conservacao ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/energiaeconservacao", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", 
             schoice = list(shuffle = TRUE), 
             name = paste0("energiaeconservacao-",ano),
             encoding = "UTF-8",
             converter = "pandoc-mathjax",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/energiaeconservacao")

############### gravitacao ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/gravitacao", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", 
             schoice = list(shuffle = TRUE), 
             name = paste0("gravitacao-",ano),
             encoding = "UTF-8",
             converter = "pandoc-mathjax",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/gravitacao")


############### hidrostatica ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/hidrostatica", pattern = ".rnw", ignore.case=TRUE)
ano <- 12019
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 50, 
             converter = "pandoc-mathjax",
             rule="none", 
             schoice = list(shuffle = TRUE), 
             name = paste0("hidrostatica-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/hidrostatica")

############### impulso ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/impulso", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", schoice = list(shuffle = TRUE), name = paste0("impulso-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/impulso")

############### lei dos gases ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/leidosgases", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", schoice = list(shuffle = TRUE), name = paste0("leidosgases-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/leidosgases")

############leis de newton - atrito##############
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/leisdenewton/atrito", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", schoice = list(shuffle = TRUE), name = paste0("leisdenewton-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/leisdenewton")

############### magnetismo ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/magnetismo", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", schoice = list(shuffle = TRUE), name = paste0("magnetismo-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/magnetismo")

############### movimento circular ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/cinematica/MCU", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 5, rule="none", schoice = list(shuffle = TRUE), name = paste0("MCU-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/cinematica/MCU")

############### MRU ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/mru", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", schoice = list(shuffle = TRUE), name = paste0("mru-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/mru")

############### MRUV ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/mruv", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", schoice = list(shuffle = TRUE), name = paste0("mruv-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/mruv")


############### ondas ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/ondas", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", schoice = list(shuffle = TRUE), name = paste0("ondas-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/ondas")

############### optica ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/optica", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", schoice = list(shuffle = TRUE), name = paste0("optica-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/optica")

############### termodinamica ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/termodinamica", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", schoice = list(shuffle = TRUE), name = paste0("termodinamica-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/termodinamica")

############### trabalho e potencia ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/trabalhopotencia", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", schoice = list(shuffle = TRUE), name = paste0("trabalhopotencia-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/trabalhopotencia")

############### estatica do corpo extenso ##################
## Definindo a pasta com as questoes do exame
myexam <- dir("./BancoDeQuestoes/estatica", pattern = ".rnw", ignore.case=TRUE)
ano <- 12018
## Cria o arquivo .xml para entrada no moodle
set.seed(ano)
exams2moodle(myexam, n = 100, rule="none", schoice = list(shuffle = TRUE), name = paste0("estatica-",ano),
             encoding = "UTF-8",
             dir = "./Moodle",
             edir = "./BancoDeQuestoes/estatica")