demo/server.R

In neumanrq/fairreviewers: "Strictness correction mechanics: Re-order a set of documents that have been ranked by humans"

library(shiny)
library(magrittr)
library(fairreviewers)

toLaTeX <- function(laTeXString) {
  paste(
    "$$\\",
    laTeXString,
    "$$"
  )
}

shinyServer(function(input, output, session) {
  data.env <- fairreviewers::randomDataset(25, 5)

  review <- fairreviewers::init(data.env$ratings)
  strictness <- review$strictnes
  result <- review$result

  output$table0 <- renderDataTable({
    data.env$ratings %>% head
  })

  output$table1 <- renderDataTable({
    names <- data.env$ratings %>% rownames %>% t
    colnames(names) <- "Applicant name"
    names %>% cbind(result) %>% as.data.frame
  })

  output$MathJax <- renderUI({
    " " %>%
    toLaTeX %>%
    helpText %>%
    withMathJax
  })
})