library(shiny)
library(datasets)
# Define server logic required to summarize and view the selected
# dataset
shinyServer(function(input, output) {
# Server-side suppor for composing table of megalist values
megalistValues <- reactive({
# Compose data frame
data.frame(
Name = c("SNPs",
"Non-Diploid",
"Many Markers",
"Large Pop Size",
"Complex History",
"Deep Timeframes",
"Model Demography",
"Management Question",
"Fast Completion",
"Large Computer"),
Value = as.character(c(input$snps,
input$non.diploid,
input$marker.num,
input$pop.size,
input$complex.hist,
input$deep.time,
input$demography,
input$management,
input$completion.time,
input$computer)),
stringsAsFactors=FALSE)
})
# Server-side support for rendering megalist values
output$values <- renderTable({
megalistValues()
})
# Server-side support for rendering simulation name
output$simname <- renderText({
input$simname
})
# Server-side support for calculating coal / foward score
# output$simscore <-
# default responses
# responses <- c(input$snps,
# input$non.diploid,
# input$marker.num,
# input$pop.size,
# input$complex.hist,
# input$deep.time,
# input$demography,
# input$management,
# input$completion.time,
# input$computer)
# response weights
# forward.wts <- c(0, 0, 0.3, 0.2, 0, 0.2, 1, 1, 0.2, 0.3)
# get relative 'score' for each model
# fwd.score <- sum(forward.wts * responses) / length(responses)
# cat("Coalescent score: ", 1 - fwd.score, "\n")
# cat("Forward-time score: ", fwd.score, "\n")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.