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-Seminarvergabe, Uni Ulm {{semester}} -- 2. Runde

< if !stud.exists

Bevor Sie Präferenzen über Seminare angeben können, aktualisieren und speichern Sie zunächst Ihre Hintergrunddaten im Reiter Ihre Daten.

>

Die Hauptrunde der Seminarvergabe für das {{semester}} wurde am {{round1_done_date}} abgeschlossen.

< if NROW(stud_sems)>0

Sie haben einen Platz in folgendem Seminar erhalten:

cat(
  assigned.sems.table(stud_sems=stud_sems,header = c("Seminar","Dozent"), topic.header = "Thema", topic.choice.label = "Thema wählen...")
)

< if FALSE

Schauen Sie im Reiter Themen, ob und bis wann Sie für das Seminar Präferenzen über Themen angegeben können.

>

Falls Sie an zwei Seminaren teilnehmen möchten, können Sie hier noch bis zum {{round2_date-1}} Präferenzen für Ihr zweites Seminar angeben. Die zentrale zweite Runde der Seminarplatzverteilung findet dann am {{round2_date}} statt.

>

< if NROW(stud_sems)==0

Sie haben leider in der ersten Runde keinen Seminarplatz erhalten.

Sie hier noch bis zum {{round2_date-1}} im Reiter Seminarwahl Präferenzen für die zweite Vergaberunde angeben. Die zentrale zweite Runde der Seminarplatzverteilung findet dann am {{round2_date}} statt.