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
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.