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_post_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, studmode = "latecomer" ) 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()
Beide Runden der Seminarvergabe für das {{semester}} sind abgeschlossen.
Sie haben keinen Seminarplatz erhalten.
Sie haben einen Platz in folgendem Seminar erhalten:
Sie haben einen Platz in folgenden Seminaren erhalten:
cat( assigned.sems.table(stud_sems=stud_sems,header = c("Seminar","Dozent"), topic.header = "Thema", topic.choice.label = "Thema wählen...") )
Schauen Sie im Reiter Themen
, ob und bis wann Sie für das Seminar Präferenzen über Themen angegeben können.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.