In skranz/SeminarMatching: Shiny App for Seminar Assignment

library(rmdtools)
library(SeminarMatching)

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


file="studseminfo_round1_en.Rmd"

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

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

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=TRUE)


stop.without.error()

Seminar Selection 2nd Round

< if NROW(stud_sems)>0

You already got a slot in the following seminar:

{{paste0(stud_sems$semname, collape=", ")}}

If you want to participate in 2 seminars, you can enter here your preferences for a second seminar until {{round2_date-1}}.

>

< if NROW(stud_sems)==0

You did not get a seminar slot in the main matching round. You can here enter preferences for the second matching round until {{round2_date-1}}.

>

Pick and sort the selected seminars according to your preferences (more prefered seminars on top) and Save your preferences by pressing the button. (Seminars with grey background have already been filled in the main round. Nevertheless also add the grey seminars in which you would participate in your preference list. Lecturers will later see a list of all students who have ranked their seminar and did not yet get a seat. If some student should drop out from a seminar, lecturers can offer a seminar seat to students from that list. Adding grey seminars to your preference list does not reduce your chance to get a slot from a white seminar in the automatic matching of the 2nd round, no matter at which position you rank the grey seminars.)

{{actionButton("saveStudprefBtn","Save seminar preferences")}}

{{uiOutput("studSemAlert")}}

Selected Seminars and Preference Order

{{uiOutput("selSemUI")}}

{{actionButton("copyStudprefBtn","Copy preferences from first round and save,")}}

All seminars

{{uiOutput("allSemUI")}}

Short manual:

• Press the "+" button to select a seminar from the list of all seminars
• Press the "x" button to remove a selected seminar.
• Use the arrow buttons to change your preference order over selected seminars.
• Press the "Save seminar preferences" button to save your preference list.

skranz/SeminarMatching documentation built on June 9, 2020, 6:57 p.m.