# State of a peerquiz
PQ_PRE = 0
PQ_WRITE = 1
PQ_GUESS = 2
PQ_CLOSED = 3
get.pq.dir = function(...) {
pq.opts()$pq.dir
}
pq.task.dir = function(pq, id=pq$id, pq.dir = get.pq.dir()) {
file.path(pq.dir,"tasks", id)
}
get.pq.userid = function(app=getApp()) {
app$userid
}
pq.opts = function(app=getApp()) {
restore.point("pq.opts")
if (!is.null(app[["pq.opts"]]))
return(app$pq.opts)
pq.opts = getOption("peerquiz.options")
if (is.null(pq.opts)) {
pq.opts = init.pq.opts()
set.pq.opts(pq.opts)
}
pq.opts
}
set.pq.opts = function(pq.opts = init.pq.opts(), app=getApp()) {
if (!is.null(app)) {
app$pq.opts = pq.opts
}
options(pq.opts=pq.opts)
invisible(pq.opts)
}
init.pq.opts = function(pq.dir = getwd()) {
nlist(pq.dir)
}
load.or.compile.pq = function(id, pq.dir = get.pq.dir()) {
restore.point("load.or.compile.pq")
#if (id=="Kap2_3_Happiness") stop()
pq.file = file.path(pq.task.dir(id=id),paste0(id,".pq"))
compile = FALSE
if (!file.exists(pq.file)) {
compile = TRUE
} else {
# compile if source file is newer than compiled file
source.dir = file.path(pq.dir,"sources")
source.file = list.files(source.dir,pattern = glob2rx(paste0(id,".*")),full.names = TRUE)
if (length(source.file)>0) {
source.file = source.file[1]
cdat = file.mtime(pq.file)
sdat = file.mtime(source.file)
compile = sdat > cdat
}
}
if (compile) {
return(compile.and.save.pq(id=id, pq.dir=pq.dir))
} else{
return(readRDS(pq.file))
}
}
load.pq = function(id, pq.file = file.path(dir,paste0(id,".pq")), dir = pq.task.dir(id=id)) {
restore.point("load.pq")
return(readRDS(pq.file))
}
compile.and.save.pq = function(id=NULL, pq=NULL, pq.dir = get.pq.dir(), source.dir = file.path(pq.dir,"sources"), save=TRUE, db=NULL, state= PQ_PRE) {
restore.point("create.pq")
if (is.null(pq)) {
source.files = list.files(source.dir,pattern = glob2rx(paste0(id,".*")))
if (length(source.files)==0) {
stop(paste0("No .Rmd or .yaml source file starting with id '", id,"' found in peerquiz sources directory '",source.dir,"'."))
}
file = source.files[1]
txt = readUtf8(file.path(source.dir,file))
if (tolower(tools::file_ext(file))=="rmd") {
pq = try(parse.hashdot.yaml(txt=txt))
} else {
yaml = merge.lines(txt)
pq = try(read.yaml(text=yaml))
}
if (is(pq,"try-error")) {
msg = paste0("Error when parsing peer quiz source file ", file,":\n", as.character(pq))
stop(msg, call.=FALSE, domain=NA)
}
}
pq$question_html = knit.rmd(pq$question)
if (!is.null(title)) {
pq$question_html = paste0("<h3>", pq$title,"</h3>\n", pq$question_html)
}
if (!is.null(pq$explain))
pq$explain_ui = render.compiled.rmd(compile.rmd(text=pq$explain,fragment.only = TRUE, out.type="shiny"),out.type = "shiny")
#pq$explain_ui = knit.rmd(pq$explain,out.type = "shiny")
pq$ns = NS(paste0("pq_",pq$id))
pq$sol_div_id = paste0("sol_div_",1:8,"_",pq$id)
pq$num.sol.click = 2
pq$lang = first.none.null(pq$lang, "en")
if (is.null(pq$ace_lines)) {
pq$ace_lines = 10
}
pq = init.pq.form(pq)
if (!is.null(pq$funs)) {
txt = sep.lines(pq$funs)
code = unlist(find.rmd.chunks(txt, add.code=TRUE)$code)
if (length(code)>0) {
call = parse(text=code)
env = new.env()
eval(call, env)
pq = c(pq,as.list(env))
}
}
if (is.null(pq$render.answer.fun) & !is.null(pq[["form"]])) {
pq$render.answer.fun = pq.default.render.answer.fun
}
# save pq file
if (save) {
task.dir = pq.task.dir(pq)
if (!dir.exists(task.dir)) {
dir.create(task.dir, recursive=TRUE)
dir.create(file.path(task.dir,"answers"))
}
saveRDS(pq, file.path(task.dir, paste0(pq$id,".pq")))
save.pq.sample.sol(pq=pq)
restore.point("before.db.entry")
close.db = is.null(db)
if (is.null(db)) db = get.pqdb(pq.dir=pq.dir)
#dbInsert(db, "pqstate", list(id=pq$id, state = state, writestart=NA, writeend=NA, guessstart=NA, guessend=NA),mode = "replace")
if (close.db) dbDisconnect(db)
}
pq
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.