In skranz/SeminarMatching: Shiny App for Seminar Assignment

library(rmdtools)
library(SeminarMatching)

setwd("D:/libraries/SeminarMatching/semedit_app/rmd")
db.dir = paste0("../db")
semdb = dbConnect(dbname=paste0(db.dir,"/semDB.sqlite"), drv = SQLite())
seminars = dbGet(semdb,"seminars")


file="studseminfo_round2_de.Rmd"

cat.rmd.params(file)
params = NULL
#cat(paste0(names(res),"=",res, collapse=", "))

today = as.Date(Sys.time())
semester = "SS15"

params = list(
  today = today,
  round1_date = today-1,  
  stud_start_date = today-10,
  round1_done_date = today-1,
  stud.exists = TRUE,
  round2_date = today,
  stud_sems = seminars,
  round2_done_date = today,
  last_latecomer_date = today+5,
  semester = semester
)
copy.into.env(params)
.GlobalEnv$knit_print.Date = function(x,...) {
  restore.point("whisker_print.date")

  format(x, format="%a. %d.%m.%Y")
}
#whisker_print.data.frame = table.knit_print.data.frame

view.rmd(file = file, envir=params,chunks.like.whisker=FALSE)


stop.without.error()

WiWi-Seminarmatching, Ulm University {{semester}} -- 2nd Round

< if !stud.exists

Please update your personal data in the tab "Your Data" before you can state your preferences over seminars.

>

The main round for the seminar matching in the semester {{semester}} was conducted at the {{round1_done_date}}.

< if NROW(stud_sems)>0

You got a seat in the following seminar:

cat(
  assigned.sems.table(stud_sems=stud_sems,header = c("Seminar","Lecturer"), topic.header = "Topic", topic.choice.label = "Choose topic...")
)

If you want to participate in two semianrs, you can enter until the {{round2_date-1}} preferences for your second seminar. The second round of seminar matching takes place on {{round2_date}}.

>

< if NROW(stud_sems)==0

You did not get a seat in a seminar in the first round.

Until the {{round2_date-1}} you can enter preferences for the second round of the seminar matching. The second round of seminar matching takes place on {{round2_date}}.